From 60688848f2f17615dbcfef476f6a0b68939e27dd Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Tue, 2 Dec 2008 03:09:25 -0600
Subject: [PATCH] Update io.mmap to use dip instead of >r/r>

---
 basis/io/mmap/mmap.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/io/mmap/mmap.factor b/basis/io/mmap/mmap.factor
index aea6d80636..9be6303e6f 100644
--- a/basis/io/mmap/mmap.factor
+++ b/basis/io/mmap/mmap.factor
@@ -22,7 +22,7 @@ INSTANCE: mapped-file sequence
 HOOK: (mapped-file) io-backend ( path length -- address handle )
 
 : <mapped-file> ( path length -- mmap )
-    [ >r normalize-path r> (mapped-file) ] keep
+    [ [ normalize-path ] dip (mapped-file) ] keep
     f mapped-file boa ;
 
 HOOK: close-mapped-file io-backend ( mmap -- )
@@ -30,7 +30,7 @@ HOOK: close-mapped-file io-backend ( mmap -- )
 M: mapped-file dispose* ( mmap -- ) close-mapped-file ;
 
 : with-mapped-file ( path length quot -- )
-    >r <mapped-file> r> with-disposal ; inline
+    [ <mapped-file> ] dip with-disposal ; inline
 
 APPLY: mapped-array-functor primitive-types