aboutsummaryrefslogtreecommitdiff
path: root/src/interp/i-syscmd.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/i-syscmd.boot')
-rw-r--r--src/interp/i-syscmd.boot4
1 files changed, 1 insertions, 3 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index b3f2433f..00ef8fe6 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -315,7 +315,7 @@ clearCmdAll() ==
resetInCoreHist()
if $useInternalHistoryTable
then $internalHistoryTable := NIL
- else deleteFile histFileName()
+ else removeFile histFileName()
$IOindex := 1
updateCurrentInterpreterFrame()
$currentLine := '")clear all" --restored 3/94; needed for undo (RDJ)
@@ -1340,8 +1340,6 @@ changeToNamedInterpreterFrame(name) ==
$interpreterFrameRing := [frame,:NREMOVE($interpreterFrameRing, frame)]
updateFromCurrentInterpreterFrame()
-makeInitialModemapFrame() == COPY $InitialModemapFrame
-
findFrameInRing(name) ==
val := NIL
for frame in $interpreterFrameRing repeat