cursors: -with- filter (e.g. foo H{ ... } [ ... ] assoc- -with- -each)

diff --git a/extra/cursors/cursors.factor b/extra/cursors/cursors.factor
index 94e83398bdc746a8b98f8dd56a6902b5cd0dde5d..750540844a8085264752ca97ca603f72c8272a81 100644 (file)
--- a/extra/cursors/cursors.factor
+++ b/extra/cursors/cursors.factor
@@ -517,3 +517,17 @@ MACRO: -ncontainer- ( n -- )
     swap [ ncontainer- ] dip -map-as ; inline
 : nmap ( seqs... quot n -- newseq )
     dup [ npick ] curry [ dip swap ] curry dip nmap-as ; inline
+
+!
+! utilities
+!
+
+: -with- ( invariant begin end quot -- begin end quot' )
+    [ rot ] dip '[ [ _ ] dip @ ] ; inline
+
+: -2with- ( invariant invariant begin end quot -- begin end quot' )
+    -with- -with- ; inline
+
+MACRO: -nwith- ( n -- )
+    [ -with- ] n*quot ;
+