diff options
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index ad5d19c8..190121d2 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -2084,7 +2084,7 @@ reportOpsFromUnitDirectly0 D == reportOpsFromUnitDirectly D reportOpsFromUnitDirectly1 D == - showFile := pathname ['SHOW,'LISTING,$listingDirectory] + showFile := pathname ['SHOW,'LISTING,nil] removeFile makeFullFilePath showFile $sayBrightlyStream: local := DEFIOSTREAM([['FILE,:showFile], '(MODE . OUTPUT)],255,0) @@ -2107,7 +2107,7 @@ reportOpsFromLisplib0(unitForm,u) == reportOpsFromLisplib(unitForm,u) reportOpsFromLisplib1(unitForm,u) == - showFile := pathname ['SHOW,'LISTING,$listingDirectory] + showFile := pathname ['SHOW,'LISTING,nil] removeFile makeFullFilePath showFile $sayBrightlyStream: local := DEFIOSTREAM([['FILE,:showFile], '(MODE . OUTPUT)],255,0) |