* boot-9.scm (struct-printer): Bugfix: Check the layout of the

vtable and not the one of the struct.

diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 03bd5ef..7cc4a41 100644 (file)
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -332,11 +332,12 @@
 (define %struct-printer-tag (cons '%struct-printer-tag #f))
 
 (define (struct-printer s)
-  (and (>= (string-length (struct-layout s))
-          (* 2 struct-vtable-offset))
-       (let ((p (struct-ref (struct-vtable s) struct-vtable-offset)))
-        (and (eq? (car p) %struct-printer-tag)
-             (cdr p)))))
+  (let ((vtable (struct-vtable s)))
+    (and (>= (string-length (struct-layout vtable))
+            (* 2 struct-vtable-offset))
+        (let ((p (struct-ref vtable struct-vtable-offset)))
+          (and (eq? (car p) %struct-printer-tag)
+               (cdr p))))))
 
 (define (make-struct-printer printer)
   (cons %struct-printer-tag printer))