macho: use with-mapped-file-reader in with-mapped-macho

diff --git a/extra/macho/macho.factor b/extra/macho/macho.factor
index b18ea57ce582f21750a3bcd3dba08903c55a106a..66e76825aa322dc503530183520b7965964b2406 100644 (file)
--- a/extra/macho/macho.factor
+++ b/extra/macho/macho.factor
@@ -915,7 +915,7 @@ TYPED: load-commands ( macho: mach_header_32/64 -- load-commands )
 : with-mapped-macho ( path quot -- )
     '[
         address>> macho-header @
-    ] with-mapped-file ; inline
+    ] with-mapped-file-reader ; inline
 
 : macho-nm ( path -- )
     [| macho |