diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-10-03 02:10:23 +0000 |
| commit | 5a03f408233bf4e17759ace9a83dcf6012f72dcc (patch) | |
| tree | 5af46b5ebca646527bb7ec115cfaaf68d5e00d23 /src/interp/i-object.boot | |
| parent | a2fd94946c6b380e2ee7ec242fd56aa4d52d9c92 (diff) | |
| download | open-axiom-5a03f408233bf4e17759ace9a83dcf6012f72dcc.tar.gz | |
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 dc486e75..972d6ed4 100644 --- a/src/interp/i-object.boot +++ b/src/interp/i-object.boot @@ -102,11 +102,11 @@ unwrap x == x quote2Wrapped x == - x is ["QUOTE",y] => wrap y + x is ['QUOTE,y] => wrap y x removeQuote x == - x is ["QUOTE",y] => y + x is ['QUOTE,y] => y x ++ returns the normal form of `obj''s value, suitable for use as @@ -133,7 +133,7 @@ instantiationNormalForm(op,argl) == -- addQuote x == -- integer? x => x --- ['QUOTE,x] +-- quote x --% Library compiler structures needed by the interpreter @@ -146,10 +146,10 @@ asTupleNew0(eltType,listOfElts) == [#listOfElts,:makeSimpleArrayFromList(eltType,listOfElts)] asTupleNewCode(eltType, size, listOfElts) == - ["asTupleNew", quoteForm getVMType eltType, size, ['%list, :listOfElts]] + ["asTupleNew", quote getVMType eltType, size, ['%list, :listOfElts]] asTupleNewCode0(eltType,listForm) == - ["asTupleNew0", quoteForm getVMType eltType, listForm] + ["asTupleNew0", quote getVMType eltType, listForm] asTupleSize(at) == first at asTupleAsVector(at) == rest at |