diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-08-09 22:51:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-08-09 22:51:35 +0000 |
| commit | 1687da9f3f891156c71b320f944e5c0fbaf1cbd0 (patch) | |
| tree | a073231126a8058766142b5e1b15267e3ddb3c7b /src/interp/i-intern.boot | |
| parent | f176a2f516055a0a211e6dd1d05c836dd913692e (diff) | |
| download | open-axiom-1687da9f3f891156c71b320f944e5c0fbaf1cbd0.tar.gz | |
* 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.
Diffstat (limited to 'src/interp/i-intern.boot')
| -rw-r--r-- | src/interp/i-intern.boot | 1 |
1 files changed, 1 insertions, 0 deletions
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"]) |