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.boot6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index e9c11444..a0c288c8 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -88,7 +88,7 @@ $localExposureDataDefault :=
VECTOR(["basic", "categories"], [], [])
$localExposureData :=
- COPY_-SEQ $localExposureDataDefault
+ copyVector $localExposureDataDefault
--% Top level system command
@@ -295,7 +295,7 @@ clearCmdSortedCaches() ==
clearCmdCompletely() ==
clearCmdAll()
- $localExposureData := COPY_-SEQ $localExposureDataDefault
+ $localExposureData := copyVector $localExposureDataDefault
-- $functionTable := nil
sayKeyedMsg("S2IZ0013",nil)
clearClams()
@@ -1127,7 +1127,7 @@ emptyInterpreterFrame(name) ==
$HistListAct, -- $HistListAct
$HistRecord, -- $HistRecord
nil, -- $internalHistoryTable
- COPY_-SEQ $localExposureDataDefault -- $localExposureData
+ copyVector $localExposureDataDefault -- $localExposureData
]
closeInterpreterFrame(name) ==