diff options
| author | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2009-09-26 13:49:18 +0000 |
| commit | 91bd7571dc0baf8d17047d553e4616dd587c0ffb (patch) | |
| tree | 2e2a2eb23ff2cb76b6eb3ae763a480ac1f0078ad /src/interp/i-object.boot | |
| parent | 868f1d56a5bcd7d712855e98085e0e15d32a3264 (diff) | |
| download | open-axiom-91bd7571dc0baf8d17047d553e4616dd587c0ffb.tar.gz | |
* interp/: More cleanup.
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 |