remove file.

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

diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index a0330f7557d13b0cbc58ee9113492765fc864383..247656c215cd41a89b185e4558da23aebef39971 100644 (file)
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -99,8 +99,8 @@
       ;; FIXME - don't support Bluesky? 
       (if (standard-tex-font? fontname)
          (set! fontname (string-upcase fontname)))
-      
-      
+      (if (equal? fontname "unknown")
+         (display (list font fontname)))
       (define-font plain fontname scaling)))
 
   (apply string-append
@@ -269,6 +269,11 @@
     (postprocess-output book framework-ps-module filename (ly:output-formats)) 
 ))
 
+(if (not (defined? 'nan?))
+    (define (nan? x) #f))
+(if (not (defined? 'inf?))
+    (define (inf? x) #f))
+
 (define-public (output-preview-framework basename book scopes fields )
   (let* ((filename (format "~a.ps" basename))
         (outputter  (ly:make-paper-outputter filename