Tweak case>quot so that it works with lambdas

2008-11-25 23:04:13 -06:00 · 2008-11-25 23:04:13 -06:00 · 51a2aa6037
parent 418353b99e
commit 51a2aa6037
1 changed files with 1 additions and 1 deletions
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@ -45,7 +45,7 @@ ERROR: no-cond ;
    [ rot \ if 3array append [ ] like ] assoc-each ;

 : cond>quot ( assoc -- quot )
-    [ dup callable? [ [ t ] swap 2array ] when ] map
+    [ dup pair? [ [ t ] swap 2array ] unless ] map
    reverse [ no-cond ] swap alist>quot ;

 ! case