From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 14 Oct 2010 05:32:03 +0000 (+0000)
Subject: Finish fix in last change to entity unparsers.
X-Git-Tag: 20101212-Gtk~38
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=933763326aa57584ce1cea8049b06c5a00a82655;p=mit-scheme.git

Finish fix in last change to entity unparsers.
---

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index d3531cbec..eabad85a3 100644
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -827,7 +827,9 @@ differences:
 		 ',field-names
 		 (LIST ,@inits)
 		 ,(close print-procedure context)
-		 ,(close print-entity-procedure context))
+		 ,@(if print-entity-procedure
+		       (list (close print-entity-procedure context))
+		       '()))
 	       `(,(absolute 'MAKE-DEFINE-STRUCTURE-TYPE context)
 		 ',(structure/physical-type structure)
 		 ',name