PS output + 1.5.2x + old Guile broken

[Mats Bengtsson]

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