diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-02 02:18:44 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-02 02:18:44 +0000 |
| commit | 29e53d366bd313f432aa744b651875f97438586c (patch) | |
| tree | f28c87d6e8836b2b02c3b6e06cfe2716b717df65 /src/boot/strap/tokens.clisp | |
| parent | 1906e73ab030ad23f1f6269acfed69703c8c40d6 (diff) | |
| download | open-axiom-29e53d366bd313f432aa744b651875f97438586c.tar.gz | |
* boot/parser.boot (bpDefinition): Accept macro definition
starting with the keyword "MACRO".
* boot/translator.boot (exportNames): Export them in all
evaluation contexts.
* interp/c-util.boot: "macro" is now a keyword.
* interp/define.boot: Likewise.
* interp/g-util.boot: Likewise.
* interp/i-syscmd.boot: Likewise.
* interp/postpar.boot: Likewise.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
| -rw-r--r-- | src/boot/strap/tokens.clisp | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 64772c34..226429a2 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -28,14 +28,14 @@ (LIST "for" 'FOR) (LIST "forall" 'FORALL) (LIST "has" 'HAS) (LIST "if" 'IF) (LIST "import" 'IMPORT) (LIST "in" 'IN) (LIST "is" 'IS) (LIST "isnt" 'ISNT) (LIST "leave" 'LEAVE) - (LIST "module" 'MODULE) (LIST "namespace" 'NAMESPACE) - (LIST "of" 'OF) (LIST "or" 'OR) (LIST "rem" 'REM) - (LIST "repeat" 'REPEAT) (LIST "return" 'RETURN) - (LIST "quo" 'QUO) (LIST "structure" 'STRUCTURE) - (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 "macro" 'MACRO) (LIST "module" 'MODULE) + (LIST "namespace" 'NAMESPACE) (LIST "of" 'OF) (LIST "or" 'OR) + (LIST "rem" 'REM) (LIST "repeat" 'REPEAT) + (LIST "return" 'RETURN) (LIST "quo" 'QUO) + (LIST "structure" 'STRUCTURE) (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) |