From 21a592077ec819ec32cf9d0e3425e7d3611b3f5c Mon Sep 17 00:00:00 2001
From: hanwen <hanwen>
Date: Fri, 27 May 2005 22:04:31 +0000
Subject: [PATCH] (write-preamble): only load fonts if their filename is a
 string.

---
 ChangeLog            | 5 +++++
 scm/framework-ps.scm | 9 +++++++--
 2 files changed, 12 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 22764291f2..b84e4432ba 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-28  Han-Wen Nienhuys  <hanwen@xs4all.nl>
+
+	* scm/framework-ps.scm (write-preamble): only load fonts if their
+	filename is a string. 
+
 2005-05-27  Han-Wen Nienhuys  <hanwen@xs4all.nl>
 
 	* scm/output-svg.scm (circle): support circle.
diff --git a/scm/framework-ps.scm b/scm/framework-ps.scm
index c80168fdd9..79fb377aaf 100644
--- a/scm/framework-ps.scm
+++ b/scm/framework-ps.scm
@@ -231,7 +231,11 @@
 
   (define (load-font-via-GS font-name-filename)
     (define (ps-load-file name)
-      (format "(~a) (r) file .loadfont " name))
+      (format
+       (if (string? name)
+	   "(~a) (r) file .loadfont\n"
+	   "% fontfile ~a could not be found\n")
+       name))
 
     (let* ((font (car font-name-filename))
 	   (name (cadr font-name-filename))
@@ -314,7 +318,8 @@
 		   (lambda (x y) (string<? (cadr x) (cadr y))))))
 	   ;; ttftool/fopencookie is broken on Windows,
 	   ;; possibly a stack corruption bug.
-	   (pfas (map (if (eq? PLATFORM 'windows) load-font-via-GS load-font)
+	   (pfas (map (if
+		       (eq? PLATFORM 'windows) load-font-via-GS load-font)
 		      font-names)))
       pfas))
 
-- 
2.39.5