Fix bug in recent change to entity unparsers.

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 317bfc51dc438a58dc4ca9aab158acce549dbec3..d3531cbec7ccfc1d16b1f181dc76f714f091a7c1 100644 (file)
--- 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)