diff options
author | dos-reis <gdr@axiomatics.org> | 2012-05-22 05:55:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2012-05-22 05:55:37 +0000 |
commit | d5c006517a885094c5752f7f143c9a0e8cda4504 (patch) | |
tree | d765a48e92657cf7e957c10c62a6526283b5f989 /src/boot/strap/tokens.clisp | |
parent | 08967519aa894f0740d4e120df5db49ab4d2e8b6 (diff) | |
download | open-axiom-d5c006517a885094c5752f7f143c9a0e8cda4504.tar.gz |
* boot/translator.boot (translateToplevel): Handle record structures.
* boot/tokens.boot: "with" is now a keyword in Boot.
* boot/parser.boot (bpSignature): The typing is required afte the
colong.
(bpFieldList): New.
(bpGlobalAccessors): Likewise.
(bpAccessorDefinitionList): Likewise.
(bpAccessorDefinition): Likewise.
(bpFieldSection): Likewise.
(bpSelectField): Likewise.
(bpRecord): Likewise.
(bpStruct): Use it to implement record structures.
* boot/ast.boot (%Ast): Add %Record and %AccessorDef.
(bfRecordDef): New.
Diffstat (limited to 'src/boot/strap/tokens.clisp')
-rw-r--r-- | src/boot/strap/tokens.clisp | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/boot/strap/tokens.clisp b/src/boot/strap/tokens.clisp index 0ed1016a..d75c74a2 100644 --- a/src/boot/strap/tokens.clisp +++ b/src/boot/strap/tokens.clisp @@ -38,12 +38,12 @@ (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) - (LIST "=" 'SHOEEQ) (LIST "~=" 'SHOENE) (LIST ".." 'SEG) + (LIST "until" 'UNTIL) (LIST "with" 'WITH) (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) (LIST "=" 'SHOEEQ) (LIST "~=" 'SHOENE) (LIST ".." 'SEG) (LIST "#" 'LENGTH) (LIST "=>" 'EXIT) (LIST "->" 'ARROW) (LIST "<-" 'LARROW) (LIST ":=" 'BEC) (LIST "+->" 'GIVES) (LIST "==" 'DEF) (LIST "<=>" 'TDEF) (LIST "(" 'OPAREN) |