diff options
author | dos-reis <gdr@axiomatics.org> | 2008-02-15 19:42:51 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2008-02-15 19:42:51 +0000 |
commit | 9d17d5a9314c999f1495392909dbfdb09b0dc1e3 (patch) | |
tree | 738980ea24ed7afb96b64d7fdff44c985db0dd12 /src/boot/strap/tokens.clisp | |
parent | 933e278d8db01dee8e057ecdab6a1b91a79c45de (diff) | |
download | open-axiom-9d17d5a9314c999f1495392909dbfdb09b0dc1e3.tar.gz |
* boot/parser.boot (bpSimpleCatch): New.
(bTry): Use it.
* boot/strap: Update.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r-- | src/boot/strap/tokens.clisp | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index a837e88b..d1d701d2 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -6,14 +6,16 @@ (DEFPARAMETER |shoeKeyWords| (LIST (LIST "and" 'AND) (LIST "by" 'BY) (LIST "case" 'CASE) - (LIST "cross" 'CROSS) (LIST "else" 'ELSE) (LIST "for" 'FOR) - (LIST "if" 'IF) (LIST "import" 'IMPORT) (LIST "in" 'IN) - (LIST "is" 'IS) (LIST "isnt" 'ISNT) (LIST "module" 'MODULE) - (LIST "of" 'OF) (LIST "or" 'OR) (LIST "repeat" 'REPEAT) + (LIST "catch" 'CATCH) (LIST "cross" 'CROSS) + (LIST "else" 'ELSE) (LIST "for" 'FOR) (LIST "if" 'IF) + (LIST "import" 'IMPORT) (LIST "in" 'IN) (LIST "is" 'IS) + (LIST "isnt" 'ISNT) (LIST "module" 'MODULE) (LIST "of" 'OF) + (LIST "or" 'OR) (LIST "repeat" 'REPEAT) (LIST "return" 'RETURN) (LIST "structure" 'STRUCTURE) - (LIST "then" 'THEN) (LIST "until" 'UNTIL) - (LIST "where" 'WHERE) (LIST "while" 'WHILE) (LIST "." 'DOT) - (LIST ":" 'COLON) (LIST "::" 'COLON-COLON) (LIST "," 'COMMA) + (LIST "then" 'THEN) (LIST "throw" 'THROW) (LIST "try" 'TRY) + (LIST "until" 'UNTIL) (LIST "where" 'WHERE) + (LIST "while" 'WHILE) (LIST "." 'DOT) (LIST ":" 'COLON) + (LIST "::" 'COLON-COLON) (LIST "," 'COMMA) (LIST ";" 'SEMICOLON) (LIST "*" 'TIMES) (LIST "**" 'POWER) (LIST "/" 'SLASH) (LIST "+" 'PLUS) (LIST "-" 'MINUS) (LIST "<" 'LT) (LIST ">" 'GT) (LIST "<=" 'LE) (LIST ">=" 'GE) |