From 29e53d366bd313f432aa744b651875f97438586c Mon Sep 17 00:00:00 2001 From: dos-reis Date: Mon, 2 May 2011 02:18:44 +0000 Subject: * 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. --- src/boot/strap/tokens.clisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'src/boot/strap/tokens.clisp') 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) -- cgit v1.2.3