From 1687da9f3f891156c71b320f944e5c0fbaf1cbd0 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Sat, 9 Aug 2008 22:51:35 +0000 Subject: * interp/pf2sex.boot (pf2Sex1): Handle more ASTs. (pfType2SexOrNil): New. (pfDoc2SexOrNil): Likewise. (pfWith2Sex): Likewise. (pfAdd2Sex): Likewise. (pfWDeclare2Sex): Likewise. (pfAttribute2Sex): Likewise. (pfWIf2Sex): Likewise. (pfExport2Sex): Likewise. (pfInline2Sex): Likewise. (pfImport2Sex): Likewise. (pfQualType2Sex): Likewise. * interp/ptrees.boot (pf0InlineItems): New. * interp/i-spec2.boot (up%Import): New. (sorry): Likewise. (up%Export): Likewise. (up%Inline): Likewise. (up%With): Likewise. (up%Add): Likewise. * interp/i-intern.boot (mkAtree3): Handle %Inline, %With, %Add, and %Export. * interp/i-spec1.boot ($specialOps): Adjust. * doc/msgs/s2-us.msgs (S2IP0006): New. --- src/interp/i-intern.boot | 1 + 1 file changed, 1 insertion(+) (limited to 'src/interp/i-intern.boot') diff --git a/src/interp/i-intern.boot b/src/interp/i-intern.boot index 681464a6..055fc160 100644 --- a/src/interp/i-intern.boot +++ b/src/interp/i-intern.boot @@ -251,6 +251,7 @@ mkAtree3(x,op,argl) == [mkAtreeNode 'DEF,[[op,:v.0],:r],if v.2 then v.2 else true,false] [mkAtreeNode 'DEF,[a,:r],true,false] op="[||]" => [mkAtreeNode op, :argl] + op in '(%Inline %With %Add %Export) => [mkAtreeNode op,:argl] --x is ['when,y,pred] => -- y isnt ['DEF,a,:r] => -- keyedSystemError("S2II0003",['"when",y,'"improper argument form"]) -- cgit v1.2.3