From da0345a90aabf582b105fea991156f3c04089208 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Jan 2018 20:06:27 -0800
Subject: [PATCH] Thanks Joe!  Fix thinko in code generation for
 define-structure.

---
 src/runtime/defstr.scm | 1 +
 1 file changed, 1 insertion(+)

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)))
-- 
2.25.1