From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 14 Oct 2010 05:17:20 +0000 (+0000)
Subject: Fix bug in recent change to entity unparsers.
X-Git-Tag: 20101212-Gtk~39
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=194056388d5f79b175142b80611188f8b0d4f6df;p=mit-scheme.git

Fix bug in recent change to entity unparsers.
---

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 317bfc51d..d3531cbec 100644
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -844,9 +844,10 @@ differences:
 		 ',(+ (if (structure/tagged? structure) 1 0)
 		      (structure/offset structure)
 		      (length slots))
-		 ,(if (structure/tagged? structure)
-		      (close print-entity-procedure context)
-		      '#F))))
+		 ,@(if (and (structure/tagged? structure)
+			    print-entity-procedure)
+		       (list (close print-entity-procedure context))
+		       '()))))
 	,@(if (and tag-expression
 		   (not (eq? tag-expression type-name)))
 	      `((,(absolute 'NAMED-STRUCTURE/SET-TAG-DESCRIPTION! context)