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/functor.boot | |
| parent | 5770442f576aa0c1e389344a636f1e4edca1b136 (diff) | |
| download | open-axiom-42cf0984b569e49060252e536c0c7e7aee469873.tar.gz | |
* More cleanup
Diffstat (limited to 'src/interp/functor.boot')
| -rw-r--r-- | src/interp/functor.boot | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/interp/functor.boot b/src/interp/functor.boot index 4891546e..8525abd1 100644 --- a/src/interp/functor.boot +++ b/src/interp/functor.boot @@ -50,7 +50,7 @@ keyItem a == -- invocation of DomainPrint1 to the next DomainPrint(D,brief) == - -- If brief is non-NIL, %then only a summary is printed + -- If brief is non-nil, %then only a summary is printed $WhereList: local := nil $Sublis: local := nil $WhereCounter: local := 1 @@ -58,7 +58,7 @@ DomainPrint(D,brief) == categoryObject? D => CategoryPrint(D,env) $Sublis:= [[keyItem D,:'original]] SAY '"-----------------------------------------------------------------------" - DomainPrint1(D,NIL,env) + DomainPrint1(D,nil,env) while ($WhereList) repeat s:= $WhereList $WhereList:= nil @@ -549,7 +549,7 @@ DescendCode(code,flag,viewAssoc,EnvToPass) == $ConstantAssignments:= [u,:$ConstantAssignments] nil u - code is ['_:,:.] => (code.first := '%list; code.rest := NIL) + code is ['_:,:.] => (code.first := '%list; code.rest := nil) --Yes, I know that's a hack, but how else do you kill a line? code is ['%list,:.] => nil code is ['devaluate,:.] => nil @@ -871,7 +871,7 @@ encodeLocalFunctionName op == makeSymbol strconc(prefix,'";",encodeItem op) splitEncodedFunctionName(encodedName, sep) == - -- [encodedPackage, encodedItem, encodedSig, sequenceNo] or NIL + -- [encodedPackage, encodedItem, encodedSig, sequenceNo] or nil -- sep0 is the separator used in "encodeFunctionName". sep0 := '";" if not string? encodedName then |