diff options
| author | dos-reis <gdr@axiomatics.org> | 2007-10-22 10:10:20 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2007-10-22 10:10:20 +0000 |
| commit | 2ff38e852893972f6d8000a70bb4a359fb7e44df (patch) | |
| tree | e3ba5f956a00f53ca27791553819b3fbdaac7ed1 /src/interp/i-object.boot | |
| parent | e58a0d3a0088390bd5dcf7333ef01cbe5c9be8eb (diff) | |
| download | open-axiom-2ff38e852893972f6d8000a70bb4a359fb7e44df.tar.gz | |
Various cleanup
Diffstat (limited to 'src/interp/i-object.boot')
| -rw-r--r-- | src/interp/i-object.boot | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/interp/i-object.boot b/src/interp/i-object.boot index 39b96214..2c6515c1 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -51,13 +51,9 @@ import '"sys-macros" -- These are the new structure functions. -mkObj(val, mode) == CONS(mode,val) -- old names -mkObjWrap(val, mode) == CONS(mode,wrap val) -mkObjCode(val, mode) == ['CONS, MKQ mode,val ] - 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 ] +objNewCode(val, mode) == ["CONS", MKQ mode,val ] objSetVal(obj,val) == RPLACD(obj,val) objSetMode(obj,mode) == RPLACA(obj,mode) @@ -77,7 +73,7 @@ objCodeMode obj == CADR obj asTupleNew(size, listOfElts) == CONS(size, LIST2VEC listOfElts) asTupleNew0(listOfElts) == CONS(#listOfElts, LIST2VEC listOfElts) -asTupleNewCode(size, listOfElts) == ["asTupleNew", size, ['LIST, :listOfElts]] +asTupleNewCode(size, listOfElts) == ["asTupleNew", size, ["LIST", :listOfElts]] asTupleNewCode0(listForm) == ["asTupleNew0", listForm] asTupleSize(at) == CAR at |