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 0ad608b3..255daac2 100644 --- a/src/interp/i-syscmd.boot +++ b/src/interp/i-syscmd.boot @@ -1395,14 +1395,14 @@ previousInterpreterFrame() == updateCurrentInterpreterFrame() null rest $interpreterFrameRing => NIL -- nothing to do [:b,l] := $interpreterFrameRing - $interpreterFrameRing := NCONC2([l],b) + $interpreterFrameRing := append!([l],b) updateFromCurrentInterpreterFrame() nextInterpreterFrame() == updateCurrentInterpreterFrame() null rest $interpreterFrameRing => NIL -- nothing to do $interpreterFrameRing := - NCONC2(rest $interpreterFrameRing,[first $interpreterFrameRing]) + append!(rest $interpreterFrameRing,[first $interpreterFrameRing]) updateFromCurrentInterpreterFrame() |