(LY_DEFINE): use scm_c_make_hash_table().

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index de24d380638f707fe917321717beb4e2a7d81fa5..70140b3624056fa5933e7ea84b3f3b4803f05bb2 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -174,16 +174,17 @@
         postscript-font-name
         size
         x-y-named-glyphs)
+  (format #f "gsave 1 output-scale div 1 output-scale div scale
+  /~a findfont ~a scalefont setfont\n~a grestore" postscript-font-name size
   (apply
    string-append
-   (cons
-    (format #f " /~a findfont ~a output-scale div scalefont setfont " postscript-font-name size)
-    (map (lambda  (item)
-          (format #f " ~a ~a rmoveto /~a glyphshow "
-                  (car item)
-                  (cadr item)
-                  (caddr item)))
-        x-y-named-glyphs))))
+   (map (lambda  (item)
+         (format #f " ~a ~a rmoveto /~a glyphshow "
+                 (car item)
+                 (cadr item)
+                 (caddr item)))
+       x-y-named-glyphs))
+  ))
 
 (define (grob-cause grob)
   "")