From 51828facc9bb3dd130b723cb49b1b5eff04231dd Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sun, 12 Dec 2010 19:35:37 +0000
Subject: Fix codegen for pattern matching strings

---
 src/interp/clam.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/clam.boot')

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()
-- 
cgit v1.2.3