`define-structure' macro should return the name of the structure which

was defined.

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 2d975b4c6ea601d9c1aaa490f11951109ca94b32..9607ebdf48966d339a3bce58b0661386e5bcdfea 100644 (file)
--- a/v7/src/runtime/defstr.scm
+++ b/v7/src/runtime/defstr.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.4 1988/12/11 11:24:36 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.5 1989/02/08 22:43:50 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -98,7 +98,8 @@ must be defined when the defstruct is evaluated.
              ,@(settor-definitions structure)
              ,@(predicate-definitions structure)
              ,@(copier-definitions structure)
-             ,@(print-procedure-definitions structure)))))
+             ,@(print-procedure-definitions structure)
+             ',(structure/name structure)))))
 \f
 ;;;; Parse Name-and-Options