From 1339b4874f5307994385c794d1ba9e9e543ef7e8 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 25 Jun 2008 23:03:14 +0000
Subject: [PATCH] fix GC problem with recent PS change

svn: r10454
---
 src/mred/wxs/wxscheme.cxx | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/mred/wxs/wxscheme.cxx b/src/mred/wxs/wxscheme.cxx
index 125f23054f..0d0790803b 100644
--- a/src/mred/wxs/wxscheme.cxx
+++ b/src/mred/wxs/wxscheme.cxx
@@ -1341,6 +1341,8 @@ static Scheme_Object *SetPSProcs(int, Scheme_Object *a[])
   wxREGGLOB(ps_get_text_extent);
   wxREGGLOB(ps_expand_name);
   wxREGGLOB(ps_glyph_exists);
+  wxREGGLOB(ps_record_font);
+  wxREGGLOB(ps_fonts_string);
   ps_draw_text = a[0];
   ps_get_text_extent = a[1];
   ps_expand_name = a[2];
@@ -1371,7 +1373,8 @@ void *wxPostScriptDrawText(Scheme_Object *f, const char *fontname,
     a[6] = (used_fonts ? (Scheme_Object *)used_fonts : scheme_false);
 
     return scheme_apply(ps_draw_text, 7, a);
-  }
+  } else
+    return NULL;
 }
 
 extern void wxPostScriptGetTextExtent(const char *fontname,