diff options
author | dos-reis <gdr@axiomatics.org> | 2010-12-12 19:35:37 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2010-12-12 19:35:37 +0000 |
commit | 51828facc9bb3dd130b723cb49b1b5eff04231dd (patch) | |
tree | e94c75ed0938b260a8f7fa0ea0de4b0a031acecd /src/interp/clam.boot | |
parent | f1c5b36d7eeb93b28a346101142e80d8035b072b (diff) | |
download | open-axiom-51828facc9bb3dd130b723cb49b1b5eff04231dd.tar.gz |
Fix codegen for pattern matching strings
Diffstat (limited to 'src/interp/clam.boot')
-rw-r--r-- | src/interp/clam.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/clam.boot b/src/interp/clam.boot index 5d1d5771..2adb438b 100644 --- a/src/interp/clam.boot +++ b/src/interp/clam.boot @@ -380,7 +380,7 @@ reportCircularCacheStats(fn,n) == infovec:= GETL(fn,'cacheInfo) circList:= eval infovec.cacheName numberUsed := - +/[1 for i in 1..n for x in circList while x isnt [='_$failed,:.]] + +/[1 for i in 1..n for x in circList while x isnt ['_$failed,:.]] sayBrightly ["%b",fn,"%d","has","%b",numberUsed,"%d","/ ",n," values cached"] displayCacheFrequency mkCircularCountAlist(circList,n) TERPRI() |