diff options
| author | dos-reis <gdr@axiomatics.org> | 2011-05-15 03:06:56 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2011-05-15 03:06:56 +0000 |
| commit | e3790da8fee54ede09e8126213a10da0aa555d06 (patch) | |
| tree | 34c6e47ff9cb808f8c0bfc80083edf356adde4af /src/interp/i-syscmd.boot | |
| parent | ae81d788f27a95c608b860d8a989f56c8796803e (diff) | |
| download | open-axiom-e3790da8fee54ede09e8126213a10da0aa555d06.tar.gz | |
cleanup
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 6 |
1 files changed, 3 insertions, 3 deletions
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) |