From bc5a8eb98b7a1cee6b0813a515c92a765d0cc470 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 18 Aug 2007 04:12:56 +0000 Subject: * translator.boot.pamphlet (bpOutItem): Translate ConstantDefinition nodes. Update cached Lisp translation. * parser.boot.pamphlet (bpSimpleDefinitionTail): Build a ConstantDefinition Ast. Update cached Lisp translation. * ast.boot.pamphlet (ConstantDefinition): A separate Ast node for constant definitions. (bfCompDef): Don't compile ConstantDefinition here. Update cached Lisp translation. --- src/boot/parser.boot.pamphlet | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'src/boot/parser.boot.pamphlet') diff --git a/src/boot/parser.boot.pamphlet b/src/boot/parser.boot.pamphlet index 043dde0f..eb68fa1e 100644 --- a/src/boot/parser.boot.pamphlet +++ b/src/boot/parser.boot.pamphlet @@ -848,7 +848,7 @@ bpDDef() == bpName() and bpDefTail() bpSimpleDefinitionTail() == bpEqKey "DEF" and (bpWhere() or bpTrap()) - and bpPush bfDefinition(bpPop2(),bfTuple nil, bpPop1()) + and bpPush ConstantDefinition(bpPop2(), bpPop1()) ++ Parse the remaining of a compound definition. bpCompoundDefinitionTail() == @@ -2099,8 +2099,7 @@ bpCaseItem()== (PROG () (RETURN (AND (|bpEqKey| 'DEF) (OR (|bpWhere|) (|bpTrap|)) - (|bpPush| - (|bfDefinition| (|bpPop2|) (|bfTuple| NIL) (|bpPop1|))))))) + (|bpPush| (|ConstantDefinition| (|bpPop2|) (|bpPop1|))))))) (DEFUN |bpCompoundDefinitionTail| () (PROG () -- cgit v1.2.3