From c4336db2edac66e866f69ded70259cbc6412dd11 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 11 Jul 2008 23:22:31 +0000
Subject: 	* 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.

---
 src/boot/translator.boot | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'src/boot')

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)
-- 
cgit v1.2.3