(glyph-string): remove / before CIDs.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 538bd18c8eb484f2f4d07039aded18aa52ba875d..a77a3fe3c4ac3c4cfa5b67db91da3aa3398eb866 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -176,7 +176,7 @@
         postscript-font-name
         size cid?
         x-y-named-glyphs)
-  
+
   (format #f "gsave 1 output-scale div 1 output-scale div scale
   /~a ~a ~a scalefont setfont\n~a grestore"
          postscript-font-name
@@ -188,17 +188,18 @@
          (apply
           string-append
           (map (lambda  (item)
-                 (let
+                 (let*
                      ((x (car item))
                       (y (cadr item))
-                      (g (caddr item)))
+                      (g (caddr item))
+                      (prefix (if  (string? g) "/" "")))
 
                    (if (and (= 0.0 x)
                             (= 0.0 y))
-                       (format #f " /~a glyphshow\n" g)
+                       (format #f " ~a~a glyphshow\n" prefix g)
                        (format #f " ~a ~a rmoveto ~a~a glyphshow\n"
                                x y
-                               (if  (string? g) "/" "")
+                               prefix
                                g))))
                x-y-named-glyphs))))