Finish fix in last change to entity unparsers.

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