(glyph-string): remove / before CIDs.

diff --git a/ChangeLog b/ChangeLog
index 0cf52a5ee8926117c189aa521113f7ebf84f6ed3..abb4990b355f85f6a917bcc45db0ae0c5f441cd8 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2005-05-20  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+       * scm/output-ps.scm (glyph-string): remove / before CIDs.
+
 2005-05-20  Graham Percival  <gperlist@shaw.ca>
 
        * Documentation/user/instrument-notation.itely: remove *Engraver.

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))))