Thanks Joe! Fix thinko in code generation for define-structure.

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 4cab2ae78926cb05170e32011be5b6a0bf5bc1ca..4125e45d8d55b5fca0713546d048359409720bd9 100644 (file)
--- a/src/runtime/defstr.scm
+++ b/src/runtime/defstr.scm
@@ -828,6 +828,7 @@ differences:
 
 (define (printer-definitions structure)
   (if (and (structure/predicate structure)
+          (structure/print-procedure structure)
           (or (structure/record-type? structure)
               (structure/tagged? structure)))
       (let ((context (structure/context structure)))