diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-07-11 23:22:31 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-07-11 23:22:31 +0000 |
| commit | c4336db2edac66e866f69ded70259cbc6412dd11 (patch) | |
| tree | 077aea22aeee9f1fd3ec455bbd0b0d35a02fc5f1 /src/boot/translator.boot | |
| parent | 399987a5a7145d813097cc0ed4552700bf39e2f4 (diff) | |
| download | open-axiom-c4336db2edac66e866f69ded70259cbc6412dd11.tar.gz | |
* interp/sys-driver.boot (initializeGlobalState): New.
(executeSpadScript): Use it.
(compileSpadLibrary): Likewise.
* interp/i-syscmd.boot (spool): Synchronize with standard output.
* boot/translator.boot (bpOutItem): Tidy.
Diffstat (limited to 'src/boot/translator.boot')
| -rw-r--r-- | src/boot/translator.boot | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/boot/translator.boot b/src/boot/translator.boot index b2b4ed15..2aee7c21 100644 --- a/src/boot/translator.boot +++ b/src/boot/translator.boot @@ -539,10 +539,12 @@ bpOutItem()== $op := nil bpComma() or bpTrap() b:=bpPop1() - EQCAR(b,"+LINE")=> bpPush [ b ] - b is ["L%T",l,r] and IDENTP l => - bpPush [["DEFPARAMETER",l,r]] - bpPush translateToplevel(b,false) + bpPush + EQCAR(b,"+LINE")=> [ b ] + b is ["L%T",l,r] and IDENTP l => + $InteractiveMode => [["SETQ",l,r]] + [["DEFPARAMETER",l,r]] + translateToplevel(b,false) shoeAddbootIfNec s == shoeAddStringIfNec('".boot",s) |