diff options
Diffstat (limited to 'src/interp/setvars.boot')
-rw-r--r-- | src/interp/setvars.boot | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/interp/setvars.boot b/src/interp/setvars.boot index 6d79f999..51c31f6b 100644 --- a/src/interp/setvars.boot +++ b/src/interp/setvars.boot @@ -763,7 +763,7 @@ setFunctionsCache arg == TERPRI() sayAllCacheCounts() n := first arg - (n ^= 'all) and ((not FIXP n) or (n < 0)) => + (n ~= 'all) and ((not FIXP n) or (n < 0)) => sayMessage ['"Your value of",:bright n,'"is invalid because ..."] describeSetFunctionsCache() terminateSystemCommand() @@ -803,7 +803,7 @@ sayAllCacheCounts () == $cacheAlist => TERPRI() -- SAY '" However," - for [x,:n] in $cacheAlist | n ^= $cacheCount repeat sayCacheCount(x,n) + for [x,:n] in $cacheAlist | n ~= $cacheCount repeat sayCacheCount(x,n) sayCacheCount(fn,n) == @@ -1697,7 +1697,7 @@ setStreamsCalculate arg == (null arg) or (arg = "%describe%") or (first arg = '_?) => describeSetStreamsCalculate() n := first arg - (n ^= 'all) and ((not FIXP n) or (n < 0)) => + (n ~= 'all) and ((not FIXP n) or (n < 0)) => sayMessage ['"Your value of",:bright n,'"is invalid because ..."] describeSetStreamsCalculate() terminateSystemCommand() |