diff options
Diffstat (limited to 'src/interp/sys-utility.boot')
-rw-r--r-- | src/interp/sys-utility.boot | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index d30b73e3..a08d8715 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -200,14 +200,10 @@ probeReadableFile file == readablep file > 0 => file nil -++ original version returned 0 on success, and 1 on failure -++ ??? fix that to return -1 on failure. -$ERASE(:filearg) == - -removeFile makeFullFilePath filearg - ++ $REPLACE(filespec1,filespec2) == - $ERASE(filespec1 := makeFullFilePath filespec1) + filespec1 := makeFullFilePath filespec1 + removeFile filespec1 renameFile(makeFullFilePath filespec2, filespec1) ++ |