From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 Mar 2005 06:15:13 +0000 (+0000)
Subject: Change optional value arguments on MAKE-ASSIGNMENT and
X-Git-Tag: 20090517-FFI~1351
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=945c6b2a525e5bfe60ad07d89a67a8fa4bf163cc;p=mit-scheme.git

Change optional value arguments on MAKE-ASSIGNMENT and
MAKE-ASSIGNMENT-FROM-VARIABLE too, since they have the same problem as
MAKE-DEFINITION.
---

diff --git a/v7/src/runtime/scode.scm b/v7/src/runtime/scode.scm
index 681a6b258..df3860863 100644
--- a/v7/src/runtime/scode.scm
+++ b/v7/src/runtime/scode.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: scode.scm,v 14.20 2005/03/26 04:17:04 cph Exp $
+$Id: scode.scm,v 14.21 2005/03/26 06:15:13 cph Exp $
 
 Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
 Copyright 1992,2001,2005 Massachusetts Institute of Technology
@@ -125,12 +125,8 @@ USA.
 (define-integrable (assignment? object)
   (object-type? (ucode-type assignment) object))
 
-(define (make-assignment-from-variable variable #!optional value)
-  (&typed-pair-cons (ucode-type assignment)
-		    variable
-		    (if (default-object? value)
-			(make-unassigned-reference-trap)
-			value)))
+(define-integrable (make-assignment-from-variable variable value)
+  (&typed-pair-cons (ucode-type assignment) variable value))
 
 (define-integrable (assignment-variable assignment)
   (system-pair-car assignment))
@@ -142,11 +138,8 @@ USA.
   (receiver (assignment-variable assignment)
 	    (assignment-value assignment)))
 
-(define (make-assignment name #!optional value)
-  (make-assignment-from-variable (make-variable name)
-				 (if (default-object? value)
-				     (make-unassigned-reference-trap)
-				     value)))
+(define-integrable (make-assignment name value)
+  (make-assignment-from-variable (make-variable name) value))
 
 (define-integrable (assignment-name assignment)
   (variable-name (assignment-variable assignment)))