X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fps.scm;h=6af36d6ab7a897bb502b69a484f47c814c7f2d15;hb=refs%2Ftags%2Frelease%2F1.5.23;hp=f469ec7ac9a308679542ac94ac1e7955e5e0f90b;hpb=5f68ba5ca0edd64f0f6723e65c27993c2dfb1e96;p=lilypond.git

diff --git a/scm/ps.scm b/scm/ps.scm
index f469ec7ac9..6af36d6ab7 100644
--- a/scm/ps.scm
+++ b/scm/ps.scm
@@ -8,20 +8,27 @@
 
 
 (define-module (scm ps)
-  :export (ps-output-expression)
-  :no-backtrace
   )
 
 (define this-module (current-module))
 
-(define (ps-output-expression expr port)
-  (display (eval expr this-module) port)
-  )
+(debug-enable 'backtrace)
+
+(if (or (equal? (minor-version) "4")
+	(equal? (minor-version) "3.4"))
+    (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 )
+      )
+    )
 
  
 (use-modules
  (guile)
- (guile-user))
+)