diff options
| author | dos-reis <gdr@axiomatics.org> | 2013-05-27 20:17:06 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2013-05-27 20:17:06 +0000 |
| commit | 8f489dc61cc095daa49c14cfe80114d041965d3a (patch) | |
| tree | bb16c5ab677e80269f9c0c5cd70193183805226a /src/interp/i-syscmd.boot | |
| parent | 62d763cdf14aeb8ea9ea956c0e35c2287ea12726 (diff) | |
| download | open-axiom-8f489dc61cc095daa49c14cfe80114d041965d3a.tar.gz | |
* interp/sys-utility.boot ($ERASE): Remove.
Diffstat (limited to 'src/interp/i-syscmd.boot')
| -rw-r--r-- | src/interp/i-syscmd.boot | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot index 49e3aaae..ad5d19c8 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -1089,7 +1089,7 @@ addNewInterpreterFrame(name) == $interpreterFrameRing := [emptyInterpreterFrame(name), :$interpreterFrameRing] updateFromCurrentInterpreterFrame() - _$ERASE histFileName() + removeFile makeFullFilePath histFileName() emptyInterpreterFrame(name) == [name, -- frame name @@ -1118,7 +1118,7 @@ closeInterpreterFrame(name) == found or (name ~= frameName(f)) => ifr := [f,:ifr] found := true not found => throwKeyedMsg("S2IZ0022",[name]) - _$ERASE makeHistFileName(name) + removeFile makeFullFilePath makeHistFileName(name) $interpreterFrameRing := reverse! ifr updateFromCurrentInterpreterFrame() @@ -1563,7 +1563,7 @@ restoreHistory(fn) == curfile := histFileName() histFileErase curfile - _$FCOPY(restfile,curfile) + copyFile(makeFullFilePath restfile,makeFullFilePath curfile) l:= # RKEYIDS curfile $HiFiAccess:= true @@ -2085,7 +2085,7 @@ reportOpsFromUnitDirectly0 D == reportOpsFromUnitDirectly1 D == showFile := pathname ['SHOW,'LISTING,$listingDirectory] - _$ERASE showFile + removeFile makeFullFilePath showFile $sayBrightlyStream: local := DEFIOSTREAM([['FILE,:showFile], '(MODE . OUTPUT)],255,0) sayShowWarning() @@ -2108,7 +2108,7 @@ reportOpsFromLisplib0(unitForm,u) == reportOpsFromLisplib1(unitForm,u) == showFile := pathname ['SHOW,'LISTING,$listingDirectory] - _$ERASE showFile + removeFile makeFullFilePath showFile $sayBrightlyStream: local := DEFIOSTREAM([['FILE,:showFile], '(MODE . OUTPUT)],255,0) sayShowWarning() |