Now that `vector-set!' is defined to return unspecific value we don't

need to force it into effect position.

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 4c42727c01ae5b62d016d53b08518894771bcaa6..1575ed04ca0985331eac43f0666f805d87d3050c 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.12 1989/08/15 15:14:34 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/defstr.scm,v 14.13 1990/01/10 12:26:03 cph Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -339,8 +339,7 @@ must be defined when the defstruct is evaluated.
                       (VECTOR-REF ,name ,n))
                     (DEFINE (,set-name ,name ,(car slots))
                       (DECLARE (INTEGRATE ,name ,(car slots)))
-                      (VECTOR-SET! ,name ,n ,(car slots))
-                      ',unspecific)))
+                      (VECTOR-SET! ,name ,n ,(car slots)))))
                (loop (cdr slots) (1+ n)))))
         `(BEGIN ,@(loop slots reserved)))))
 
@@ -471,8 +470,7 @@ must be defined when the defstruct is evaluated.
                                                    ,(slot/index slot))
                            VALUE))
                         (else
-                         (error "Unknown scheme type" structure)))
-                     ',unspecific)))))
+                         (error "Unknown scheme type" structure))))))))
          (structure/slots structure)))
 \f
 (define (constructor-definitions structure)