diff options
author | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-04-30 18:55:21 +0000 |
commit | 42cf0984b569e49060252e536c0c7e7aee469873 (patch) | |
tree | c2cb31c68df04f75bfd9a490ae10b9c6cf795102 /src/interp/define.boot | |
parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz |
* More cleanup
Diffstat (limited to 'src/interp/define.boot')
-rw-r--r-- | src/interp/define.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/define.boot b/src/interp/define.boot index b670c3c9..961e3d3b 100644 --- a/src/interp/define.boot +++ b/src/interp/define.boot @@ -191,7 +191,7 @@ makeCompactDirect1(op,items) == 0 --> drop items which are not present (predCode = -1) predCode = -1 => return nil - --> drop items with NIL slots if lookup function is incomplete + --> drop items with nil slots if lookup function is incomplete if null slot then $lookupFunction is 'lookupIncomplete => return nil slot := 1 --signals that operation is not present @@ -230,7 +230,7 @@ makeCompactSigCode sig == [fn for x in sig] where --======================================================================= NRTmakeCategoryAlist() == $depthAssocCache: local := hashTable 'EQ - $catAncestorAlist: local := NIL + $catAncestorAlist: local := nil pcAlist := [:[[x,:"T"] for x in $uncondAlist],:$condAlist] $levelAlist: local := depthAssocList [CAAR x for x in pcAlist] opcAlist := reverse! SORTBY(function NRTcatCompare,pcAlist) @@ -782,9 +782,9 @@ compDefineCategory2(form,signature,specialCases,body,m,e, for u in $extraParms repeat formals:=[first u,:formals] actuals:=[MKQ rest u,:actuals] - body := ['sublisV,['PAIR,['QUOTE,formals],['%list,:actuals]],body] + body := ['sublisV,['pairList,['QUOTE,formals],['%list,:actuals]],body] if argl then body:= -- always subst for args after extraparms - ['sublisV,['PAIR,['QUOTE,sargl],['%list,: + ['sublisV,['pairList,['QUOTE,sargl],['%list,: [['devaluate,u] for u in sargl]]],body] body:= ["%bind",[[g:= gensym(),body]], |