From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Jan 2018 04:06:27 +0000 (-0800)
Subject: Thanks Joe!  Fix thinko in code generation for define-structure.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~389
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=da0345a90aabf582b105fea991156f3c04089208;p=mit-scheme.git

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

diff --git a/src/runtime/defstr.scm b/src/runtime/defstr.scm
index 4cab2ae78..4125e45d8 100644
--- 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)))