* input/test/scales-greek.ly: remove.

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

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 35d850a3440312d3db16ab222bcd96b1686c8b0e..1615102f6cf5657adca701f7ba07a04753be3430 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -36,6 +36,7 @@
             placebox
             bezier-sandwich
             horizontal-line
+            embedded-ps
             filledbox
             round-filled-box
             text
@@ -80,6 +81,7 @@
                 (escape-parentheses val)
                 ") def\n"))
 
+
 (define (ps-number-def prefix key val)
   (let ((s (if (integer? val)
               (ly:number->string val)
@@ -140,7 +142,8 @@
 
 ; todo: merge with tex-font-command?
 
-
+(define (embedded-ps string)
+  string)
 
 (define (dot x y radius)
   (string-append