elf: only open file for reading

2014-08-17 20:02:30 +02:00 · 2014-08-17 20:02:30 +02:00 · 4f1762d121
parent b5147aa549
commit 4f1762d121
1 changed files with 3 additions and 3 deletions
--- a/extra/elf/elf.factor
+++ b/extra/elf/elf.factor
@ -624,4 +624,4 @@ M:: segment sections ( segment -- sections )
 : with-mapped-elf ( path quot -- )
    '[
        address>> <elf> @
-    ] with-mapped-file ; inline
+    ] with-mapped-file-reader ; inline