basis: ERROR: changes.

[factor.git] / basis / io / mmap / mmap.factor

diff --git a/basis/io/mmap/mmap.factor b/basis/io/mmap/mmap.factor
index 67c245d9565d77264800ff8fc06d2f847fed2dc4..352d0558f457437a92ed8fbe2cc2d19356c9db45 100644 (file)
--- a/basis/io/mmap/mmap.factor
+++ b/basis/io/mmap/mmap.factor
@@ -16,7 +16,7 @@ HOOK: (mapped-file-r/w) os ( path length -- address handle )
 : prepare-mapped-file ( path quot -- mapped-file path' length )
     [
         [ normalize-path ] [ file-info size>> ] bi
-        [ dup 0 <= [ bad-mmap-size ] [ 2drop ] if ]
+        [ dup 0 <= [ throw-bad-mmap-size ] [ 2drop ] if ]
         [ nip mapped-file new-disposable swap >>length ]
     ] dip 2tri [ >>address ] [ >>handle ] bi* ; inline