From 7516485f8446cbcd655cbb9727f727329ecad88e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 10 Jan 1990 12:26:03 +0000 Subject: [PATCH] Now that `vector-set!' is defined to return unspecific value we don't need to force it into effect position. --- v7/src/runtime/defstr.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) 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) -- 2.25.1