Removing more >r/r> usages

[factor.git] / basis / models / history / history.factor

diff --git a/basis/models/history/history.factor b/basis/models/history/history.factor
index caf6f39d5c95ba274abf6717edd5b3e1a6a07c22..90d6b594ffdfb62276545bea0ff8ef1fe8267230 100644 (file)
--- a/basis/models/history/history.factor
+++ b/basis/models/history/history.factor
@@ -18,7 +18,7 @@ TUPLE: history < model back forward ;
 \r
 : go-back/forward ( history to from -- )\r
     [ 2drop ]\r
-    [ >r dupd (add-history) r> pop swap set-model ] if-empty ;\r
+    [ [ dupd (add-history) ] dip pop swap set-model ] if-empty ;\r
 \r
 : go-back ( history -- )\r
     dup [ forward>> ] [ back>> ] bi go-back/forward ;\r