From 933763326aa57584ce1cea8049b06c5a00a82655 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 14 Oct 2010 05:32:03 +0000 Subject: [PATCH] Finish fix in last change to entity unparsers. --- src/runtime/defstr.scm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.25.1