diff options
Diffstat (limited to 'src/interp/i-util.boot')
| -rw-r--r-- | src/interp/i-util.boot | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/interp/i-util.boot b/src/interp/i-util.boot index 8107c37b..cdfa2cfe 100644 --- a/src/interp/i-util.boot +++ b/src/interp/i-util.boot @@ -86,9 +86,10 @@ printPrompt(flush? == false) == --% Miscellaneous +$ZeroVecCache := nil Zeros n == - BOUNDP '$ZeroVecCache and #$ZeroVecCache=n => $ZeroVecCache - $ZeroVecCache:= MAKE_-VEC n + #$ZeroVecCache = n => $ZeroVecCache + $ZeroVecCache := MAKE_-VEC n for i in 0..n-1 repeat $ZeroVecCache.i:=0 $ZeroVecCache |