From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 10 Jan 1990 12:26:03 +0000 (+0000)
Subject: Now that `vector-set!' is defined to return unspecific value we don't
X-Git-Tag: 20090517-FFI~11604
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7516485f8446cbcd655cbb9727f727329ecad88e;p=mit-scheme.git

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 4c42727c0..1575ed04c 100644
--- 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)))
 
 (define (constructor-definitions structure)