diff options
author | dos-reis <gdr@axiomatics.org> | 2011-12-28 06:12:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2011-12-28 06:12:21 +0000 |
commit | 292bd212f1c30a51f0191128d5a9cd2691c5ccf9 (patch) | |
tree | b3df4b4c43f312e5f0ac52dde5de9b3791833714 /src/boot/tokens.boot | |
parent | 1fd6a63bbce9234ba3b8efa12c9a91643f0a87a1 (diff) | |
download | open-axiom-292bd212f1c30a51f0191128d5a9cd2691c5ccf9.tar.gz |
* boot/tokens.boot: Remove redundant renaming of REM.
loopBody and loopExit are not selectors.
* interp/i-output.boot: Include sys-utility.
* interp/sys-utility.boot (last): New macro.
(loopBody): Likewise.
* interp/vmlisp.lisp (LASTNODE): Remove.
(LASTPAIR): Likewise.
(last): Do not define here.
Diffstat (limited to 'src/boot/tokens.boot')
-rw-r--r-- | src/boot/tokens.boot | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 77b29cb2..2adea400 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -323,7 +323,6 @@ for i in [ _ ["MINUS", "-"] , _ ["TIMES", "*"] , _ ["POWER", "EXPT"] , _ - ['REM, 'REM],_ ['QUO, 'TRUNCATE],_ ["SLASH", "/"] , _ ["LT", "<"], _ @@ -341,6 +340,8 @@ for i in [ _ ["absKind", "CAR"] ,_ ["absParms", "CADR"] ,_ ["absBody", "CADDR"] ,_ + ["loopBody", "loopBody"] ,_ + ["loopExit", "last"] ,_ ["setName", 0] , _ ["setLabel", 1] , _ ["setLevel", 2] , _ |