From 945c6b2a525e5bfe60ad07d89a67a8fa4bf163cc Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 26 Mar 2005 06:15:13 +0000 Subject: [PATCH] Change optional value arguments on MAKE-ASSIGNMENT and MAKE-ASSIGNMENT-FROM-VARIABLE too, since they have the same problem as MAKE-DEFINITION. --- v7/src/runtime/scode.scm | 17 +++++------------ 1 file changed, 5 insertions(+), 12 deletions(-) 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))) -- 2.25.1