From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 11 Dec 1988 11:24:36 +0000 (+0000)
Subject: Change modifiers to return `unassigned'.  This will result in superior
X-Git-Tag: 20090517-FFI~12394
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=be9463fa4770b2fd08405b238a533e1a1e436af9;p=mit-scheme.git

Change modifiers to return `unassigned'.  This will result in superior
compiled code as the compiler will not attempt to produce the original
value of the location being modified.
---

diff --git a/v7/src/runtime/defstr.scm b/v7/src/runtime/defstr.scm
index 7b14f3823..2d975b4c6 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.3 1988/10/29 00:12:22 cph Exp $
+$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 $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -314,7 +314,8 @@ 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)))))
+		       (VECTOR-SET! ,name ,n ,(car slots))
+		       ',unspecific)))
 		(loop (cdr slots) (1+ n)))))
 	 `(BEGIN ,@(loop slots reserved)))))
 
@@ -441,7 +442,8 @@ must be defined when the defstruct is evaluated.
 						    ,(slot/index slot))
 			    VALUE))
 			 (else
-			  (error "Unknown scheme type" structure))))))))
+			  (error "Unknown scheme type" structure)))
+		      ',unspecific)))))
 	  (structure/slots structure)))
 
 (define (constructor-definitions structure)