diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-08-04 13:56:52 +0000 |
| commit | 9a593e3b395c1ba0c6036760c12713d7485f8c54 (patch) | |
| tree | dd8eadbf07dde50ca15d6aa4181c902ad7b09d3c /src/interp/i-intern.boot | |
| parent | e77d30ccf1b663aaa6ec1e017fa8e31f3296afeb (diff) | |
| download | open-axiom-9a593e3b395c1ba0c6036760c12713d7485f8c54.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 0c4a6141..fb9528e3 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -111,7 +111,7 @@ mkAtree1 x == v := mkAtreeNode $immediateDataSymbol putValue(v,getBasicObject x) v - IDENTP x => mkAtreeNode x + ident? x => mkAtreeNode x keyedSystemError("S2II0002",[x]) x is [op,:argl] => mkAtree2(x,op,argl) systemErrorHere ["mkAtree1",x] @@ -319,7 +319,7 @@ collectDefTypesAndPreds args == -- slot 2: a predicate for all arguments pred := types := vars := nil junk := - IDENTP args => + ident? args => types := [nil] vars := [args] args is [":",var,type] => @@ -362,7 +362,7 @@ mkAtreeValueOf l == mkAtreeValueOf1 l == null l or atom l or null rest l => l - l is ["valueOf",u] and IDENTP u => + l is ["valueOf",u] and ident? u => v := mkAtreeNode $immediateDataSymbol putValue(v,get(u,"value",$InteractiveFrame) or objNewWrap(u,['Variable,u])) |