From 194056388d5f79b175142b80611188f8b0d4f6df Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 14 Oct 2010 05:17:20 +0000 Subject: [PATCH] Fix bug in recent change to entity unparsers. --- src/runtime/defstr.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) 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) -- 2.25.1