diff options
| author | dos-reis <gdr@axiomatics.org> | 2010-05-09 15:57:28 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2010-05-09 15:57:28 +0000 |
| commit | b248654cba0d6c5ae213882837140358f92bab1c (patch) | |
| tree | b11ab78c2648334dcc1c9bbe63e82f6878ed27f4 /src/boot | |
| parent | aa827b23f713e6568dde0c7c9fecf67d2ee2e7fd (diff) | |
| download | open-axiom-b248654cba0d6c5ae213882837140358f92bab1c.tar.gz | |
* boot/tokens.boot: Don't rename 'cons'.
* interp/msg.boot: Remove uses of cons.
* interp/postpar.boot: Likewise.
* interp/types.boot: Likewise.
Diffstat (limited to 'src/boot')
| -rw-r--r-- | src/boot/strap/parser.clisp | 31 | ||||
| -rw-r--r-- | src/boot/strap/tokens.clisp | 9 | ||||
| -rw-r--r-- | src/boot/strap/translator.clisp | 2 | ||||
| -rw-r--r-- | src/boot/tokens.boot | 1 |
4 files changed, 24 insertions, 19 deletions
diff --git a/src/boot/strap/parser.clisp b/src/boot/strap/parser.clisp index a63057f2..8498e086 100644 --- a/src/boot/strap/parser.clisp +++ b/src/boot/strap/parser.clisp @@ -568,8 +568,16 @@ (|bpPush| NIL))) (DEFUN |bpPrimary1| () - (OR (|bpName|) (|bpDot|) (|bpConstTok|) (|bpConstruct|) (|bpCase|) - (|bpStruct|) (|bpPDefinition|) (|bpBPileDefinition|))) + (OR (|bpParenthesizedApplication|) (|bpDot|) (|bpConstTok|) + (|bpConstruct|) (|bpCase|) (|bpStruct|) (|bpPDefinition|) + (|bpBPileDefinition|))) + +(DEFUN |bpParenthesizedApplication| () + (AND (|bpName|) (|bpAnyNo| #'|bpArgumentList|))) + +(DEFUN |bpArgumentList| () + (AND (|bpPDefinition|) + (|bpPush| (|bfApplication| (|bpPop2|) (|bpPop1|))))) (DEFUN |bpPrimary| () (AND (|bpFirstTok|) (OR (|bpPrimary1|) (|bpPrefixOperator|)))) @@ -592,8 +600,6 @@ (|bpPush| (|bfElt| (|bpPop2|) (|bpPop1|)))) (|bpPush| (|bfSuffixDot| (|bpPop1|)))))) -(DEFUN |bpOperator| () (AND (|bpPrimary|) (|bpAnyNo| #'|bpSelector|))) - (DEFUN |bpApplication| () (AND (|bpPrimary|) (|bpAnyNo| #'|bpSelector|) (OR (AND (|bpApplication|) @@ -1080,13 +1086,16 @@ (OR (|bpBracketConstruct| #'|bpPatternL|) (|bpAssignLHS|))) (DEFUN |bpAssignLHS| () - (AND (|bpName|) - (OR (AND (|bpEqKey| 'COLON) (OR (|bpApplication|) (|bpTrap|)) - (|bpPush| (|bfLocal| (|bpPop2|) (|bpPop1|)))) - (AND (|bpEqKey| 'DOT) (|bpList| #'|bpPrimary| 'DOT) - (|bpChecknull|) - (|bpPush| (|bfTuple| (CONS (|bpPop2|) (|bpPop1|))))) - T))) + (COND + ((NOT (|bpName|)) NIL) + ((|bpEqKey| 'COLON) (OR (|bpApplication|) (|bpTrap|)) + (|bpPush| (|bfLocal| (|bpPop2|) (|bpPop1|)))) + (T (AND (|bpArgumentList|) (OR (|bpEqPeek| 'DOT) (|bpTrap|))) + (COND + ((|bpEqKey| 'DOT) + (AND (|bpList| #'|bpPrimary| 'DOT) (|bpChecknull|) + (|bpPush| (|bfTuple| (CONS (|bpPop2|) (|bpPop1|)))))) + (T T))))) (DEFUN |bpChecknull| () (PROG (|a|) diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index f2853636..c288dd05 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -202,11 +202,10 @@ (LET ((|bfVar#9| (LIST (LIST '|and| 'AND) (LIST '|append| 'APPEND) (LIST '|apply| 'APPLY) (LIST '|atom| 'ATOM) (LIST '|car| 'CAR) (LIST '|cdr| 'CDR) - (LIST '|cons| 'CONS) (LIST '|cons?| 'CONSP) - (LIST '|copy| 'COPY) (LIST '|croak| 'CROAK) - (LIST '|drop| 'DROP) (LIST '|exit| 'EXIT) - (LIST '|false| 'NIL) (LIST '|first| 'CAR) - (LIST '|fourth| 'CADDDR) + (LIST '|cons?| 'CONSP) (LIST '|copy| 'COPY) + (LIST '|croak| 'CROAK) (LIST '|drop| 'DROP) + (LIST '|exit| 'EXIT) (LIST '|false| 'NIL) + (LIST '|first| 'CAR) (LIST '|fourth| 'CADDDR) (LIST '|function| 'FUNCTION) (LIST '|genvar| 'GENVAR) (LIST '|integer?| 'INTEGERP) diff --git a/src/boot/strap/translator.clisp b/src/boot/strap/translator.clisp index bb7c66d3..06af9992 100644 --- a/src/boot/strap/translator.clisp +++ b/src/boot/strap/translator.clisp @@ -1282,8 +1282,6 @@ ((MEMBER (|Option| '|no|) |$FilesToRetain|) NIL) (T (MEMBER (|Option| |ext|) |$FilesToRetain|)))) -(EVAL-WHEN (:EXECUTE :LOAD-TOPLEVEL) (TRACE |retainFile?|)) - (DEFUN |compileBootHandler| (|progname| |options| |file|) (PROG (|objFile| |intFile|) (RETURN diff --git a/src/boot/tokens.boot b/src/boot/tokens.boot index 9d4f6274..d40e7f80 100644 --- a/src/boot/tokens.boot +++ b/src/boot/tokens.boot @@ -239,7 +239,6 @@ for i in [ _ ["atom", "ATOM"] , _ ["car", "CAR"] , _ ["cdr", "CDR"] , _ - ["cons", "CONS"] , _ ["cons?", "CONSP"] , _ ["copy", "COPY"] , _ ["croak", "CROAK"] , _ |