]> gitweb.factorcode.org Git - factor.git/blobdiff - basis/compiler/tree/debugger/debugger.factor
Updating code for make and fry changes
[factor.git] / basis / compiler / tree / debugger / debugger.factor
index 01b91b1613331bbebbe45f7b8349cc2d1ddc99c1..691c564661b415c18544f2922b69fb9c4d1c3d95 100644 (file)
@@ -16,7 +16,7 @@ IN: compiler.tree.debugger
 GENERIC: node>quot ( node -- )
 
 MACRO: match-choose ( alist -- )
-    [ '[ , ] ] assoc-map '[ , match-cond ] ;
+    [ [ ] curry ] assoc-map [ match-cond ] curry ;
 
 MATCH-VARS: ?a ?b ?c ;