From e3790da8fee54ede09e8126213a10da0aa555d06 Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 15 May 2011 03:06:56 +0000
Subject: cleanup

---
 src/interp/i-syscmd.boot | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/interp/i-syscmd.boot')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 0daaf964..bcae78dd 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -2389,7 +2389,7 @@ reportOpsFromUnitDirectly0 D ==
 reportOpsFromUnitDirectly1 D ==
   showFile := pathname ['SHOW,'LISTING,$listingDirectory]
   _$ERASE showFile
-  $sayBrightlyStream : fluid :=
+  $sayBrightlyStream: local :=
     DEFIOSTREAM([['FILE,:showFile], '(MODE . OUTPUT)],255,0)
   sayShowWarning()
   reportOpsFromUnitDirectly D
@@ -2412,7 +2412,7 @@ reportOpsFromLisplib0(unitForm,u)  ==
 reportOpsFromLisplib1(unitForm,u)  ==
   showFile := pathname ['SHOW,'LISTING,$listingDirectory]
   _$ERASE showFile
-  $sayBrightlyStream : fluid :=
+  $sayBrightlyStream: local :=
     DEFIOSTREAM([['FILE,:showFile], '(MODE . OUTPUT)],255,0)
   sayShowWarning()
   reportOpsFromLisplib(unitForm,u)
@@ -3065,7 +3065,7 @@ tabsToBlanks s ==
 
 doSystemCommand string ==
    string := strconc('")", EXPAND_-TABS string)
-   LINE: fluid := string
+   LINE: local := string
    processSynonyms()
    string := LINE
    string:=subString(string,1)
-- 
cgit v1.2.3