;;(pretty-print (cons (car music-event-tree) (sort-tree (cdr music-event-tree))))
(defmacro-public make-stream-event (expr)
- (Stream_event::undump (primitive-eval (list 'quasiquote expr))))
+ (ly:stream-event::undump (primitive-eval (list 'quasiquote expr))))
(define* (simplify e)
(cond
((pair? e) (cons (simplify (car e))
(simplify (cdr e))))
((ly:stream-event? e)
- (list 'unquote (list 'make-stream-event (simplify (Stream_event::dump e)))))
+ (list 'unquote (list 'make-stream-event (simplify (ly:stream-event::dump e)))))
((ly:music? e)
(list 'unquote (music->make-music e)))
((ly:moment? e)
(list 'unquote `(ly:make-duration
,(ly:duration-log e)
,(ly:duration-dot-count e)
- ,(ly:duration-scale))))
+ ,(ly:duration-scale e))))
((ly:pitch? e)
(list 'unquote `(ly:make-pitch
,(ly:pitch-octave e)