diff options
Diffstat (limited to 'src/interp/i-object.boot')
| -rw-r--r-- | src/interp/i-object.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index b4d1952e..b9bdb21d 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -73,9 +73,9 @@ objNewCode(val, mode) == ["CONS", MKQ mode,val ] objSetVal(obj,val) == RPLACD(obj,val) objSetMode(obj,mode) == RPLACA(obj,mode) -objVal obj == CDR obj -objValUnwrap obj == unwrap CDR obj -objMode obj == CAR obj +objVal obj == rest obj +objValUnwrap obj == unwrap rest obj +objMode obj == first obj objEnv obj == $EmptyEnvironment objCodeVal obj == third obj @@ -144,8 +144,8 @@ asTupleNewCode(eltType, size, listOfElts) == asTupleNewCode0(eltType,listForm) == ["asTupleNew0", quoteForm getVMType eltType, listForm] -asTupleSize(at) == CAR at -asTupleAsVector(at) == CDR at +asTupleSize(at) == first at +asTupleAsVector(at) == rest at asTupleAsList(at) == VEC2LIST asTupleAsVector at --% Basic Object Type Identification |