Fixed one more use of [] on Anarki.

lathe · Apr 8, 2012 · 5cb063e · 5cb063e
1 parent a5c0ad5
commit 5cb063e
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/arc/imp/sniff.arc b/arc/imp/sniff.arc
@@ -8,7 +8,8 @@
 (= my.cccraziness* nil)
 ; NOTE: We'd use catch.throw instead of ccc.idfn here, but Rainbow
 ; can't handle that. Has Rainbow implemented escape continuations?
-(catch:after (ccc.idfn [= my.cccraziness* t]) throw.nil)
+; NOTE: On Anarki, [= my.cccraziness* t] is nullary.
+(catch:after (ccc.idfn:fn (_) (= my.cccraziness* t)) throw.nil)
 
 
 ; This is based on a bug in official Arc's quasiquote which makes it