Re: PS output + 1.5.2x + old Guile broken

[Mats Bengtsson]

What I said below isn't entirely true. What happens if you 
use an old Guile and my patch, is that 
lilypond -fps myfile.ly 
generates the .ps file on standard output, not in myfile.ps.
So, a better solution than my cludge would be preferable.

  /Mats

> The compatibility fixes for Guile 1.3.4 and 1.4 
> don't work with lilypond -fps, you get
> Backtrace:
> 0* [ps-output-expression # #<output: star-spangled-banner.ps 3>]
> 
> ERROR: In procedure ps-output-expression:
> ERROR: Wrong number of arguments to #<procedure ps-output-expression
> (expr)>
> 
> The problem is that the routine is called at two different
> places, in Paper_outputter::output_scheme and in (embedded-ps ).
> It seems that the following patch fixes the problem.
> 
>   /Mats
> 
> --- scm/ps.scm~       Wed Dec  5 18:54:40 2001
> +++ scm/ps.scm  Sat Feb  2 00:18:19 2002
> @@ -16,7 +16,7 @@
>  
>  (if (or (equal? (minor-version) "4")
>         (equal? (minor-version) "3.4"))
> -    (define-public (ps-output-expression expr)
> +    (define-public (ps-output-expression expr dummy)
>        (display (eval-in-module expr this-module)))
>  
>      (define-public (ps-output-expression expr port)
> --- scm/tex.scm~        Wed Dec  5 18:54:40 2001
> +++ scm/tex.scm Sat Feb  2 00:19:14 2002
> @@ -130,7 +130,7 @@
>      (define (embedded-ps expr)
>        (let ((ps-string
>              (with-output-to-string
> -              (lambda () (ps-output-expression expr)))))
> +              (lambda () (ps-output-expression expr 0)))))
>         (string-append "\\embeddedps{" ps-string "}")))
>      (define (embedded-ps expr)
>        (let