Removing more >r/r> usages

[factor.git] / basis / interval-maps / interval-maps.factor

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index 99da00ceab5fb62a62c21b16a60475ff46f99fec..34e43ddc7583729f804830f35233377e83e5b9cf 100644 (file)
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@@ -15,7 +15,7 @@ TUPLE: interval-map array ;
     first2 between? ;\r
 \r
 : all-intervals ( sequence -- intervals )\r
-    [ >r dup number? [ dup 2array ] when r> ] { } assoc-map-as ;\r
+    [ [ dup number? [ dup 2array ] when ] dip ] { } assoc-map-as ;\r
 \r
 : disjoint? ( node1 node2 -- ? )\r
     [ second ] [ first ] bi* < ;\r