diff options
Diffstat (limited to 'src/interp/i-object.boot')
-rw-r--r-- | src/interp/i-object.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index ab1b1fd8..401ed7fc 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -70,8 +70,8 @@ $useIntegerSubdomain := true objNew(val, mode) == CONS(mode,val) -- new names as of 10/14/93 objNewWrap(val, mode) == CONS(mode,wrap val) objNewCode(val, mode) == ["CONS", MKQ mode,val ] -objSetVal(obj,val) == RPLACD(obj,val) -objSetMode(obj,mode) == RPLACA(obj,mode) +objSetVal(obj,val) == obj.rest := val +objSetMode(obj,mode) == obj.first := mode objVal obj == rest obj objValUnwrap obj == unwrap rest obj @@ -355,7 +355,7 @@ computedMode t == insertShortAlist(prop,val,al) == pair := QASSQ(prop,al) => - RPLACD(pair,val) + pair.rest := val al [[prop,:val],:al] |