Re: lilypond -fps broken

[Rune Zedeler]

Citat Han-Wen Nienhuys <address@hidden>:

> --- ps.scm~   Mon Feb 25 00:29:31 2002
> +++ ps.scm    Mon Feb 25 17:08:00 2002
> @@ -16,8 +16,8 @@
>  
>  (if (or (equal? (minor-version) "4")
>       (equal? (minor-version) "3.4"))
> -    (define-public (ps-output-expression expr)
> -      (display (eval-in-module expr this-module)))
> +    (define-public (ps-output-expression expr port)
> +      (display (eval-in-module expr this-module) port))
>  
>      (define-public (ps-output-expression expr port)
>        (display (eval expr this-module) port)))

Whoops, I was too fast.
lilypond -fps works, but ly2dvi does not:

E 0* [tex-output-expression # #<output: Fischer_EratoPraeludium.tex 3>]
 1* [display ...
 2*  [eval-in-module (placebox # # #) #<directory # 402b29c0>]
 3   [eval2 # #<compiled-closure #<primitive-procedure eval-closure>>]
 4*  [placebox 97.070852374711 -18.05 ...
 5*   [beam 3.83003444256581 0.0773326230576112 0.48]
 6    [embedded-ps (beam 3.83003444256581 0.0773326230576112 0.48)]
 7    (let ((ps-string #)) (string-append \embeddedps{ ps-string }))
 8*   [with-output-to-string #<procedure ()>]
 9    [call-with-output-string #<procedure (p)>]
10*   [#<procedure (p)> #<output: string 83dc310>]
11*   [with-output-to-port #<output: string 83dc310> #<procedure ()>]
12    (let ((swaports (lambda () #))) (dynamic-wind swaports thunk swaports))
13    [dynamic-wind #<procedure ()> #<procedure ()> #<procedure ()>]
14*   [#<procedure ()>]
15*   (ps-output-expression expr)

RROR: In expression (ps-output-expression expr):
ERROR: Wrong number of arguments to #<procedure ps-output-expression (expr port)

-Rune