kernel: new combinator 2with = with with

[factor.git] / extra / usa-cities / usa-cities.factor

diff --git a/extra/usa-cities/usa-cities.factor b/extra/usa-cities/usa-cities.factor
index 29f710061c4b02ecfad9120d63f4a0fa83aa7baa..111ea991592d9b2a16fca566b27ac8dbe2dab5b9 100644 (file)
--- a/extra/usa-cities/usa-cities.factor
+++ b/extra/usa-cities/usa-cities.factor
@@ -49,7 +49,7 @@ MEMO: cities-named ( name -- cities )
 MEMO: cities-named-in ( name state -- cities )
     cities [
         [ name>> = ] [ state>> = ] bi-curry bi* and
-    ] with with filter ;
+    ] 2with filter ;
 
 : find-zip-code ( code -- city )
     cities [ first-zip>> <=> ] with search nip ;