basis: ERROR: changes.

[factor.git] / basis / compression / zlib / zlib.factor

diff --git a/basis/compression/zlib/zlib.factor b/basis/compression/zlib/zlib.factor
index 533d55bb68b68feaa05c0bbfa9e984f044e46f40..a82352327d68374210d5c72e62a9670c2fd0ee20 100644 (file)
--- a/basis/compression/zlib/zlib.factor
+++ b/basis/compression/zlib/zlib.factor
@@ -20,13 +20,13 @@ ERROR: zlib-failed n string ;
             "stream error" "data error"
             "memory error" "buffer error" "zlib version error"
         } ?nth
-    ] if zlib-failed ;
+    ] if throw-zlib-failed ;
 
 : zlib-error ( n -- )
     dup {
         { compression.zlib.ffi:Z_OK [ drop ] }
         { compression.zlib.ffi:Z_STREAM_END [ drop ] }
-        [ dup zlib-error-message zlib-failed ]
+        [ dup zlib-error-message throw-zlib-failed ]
     } case ;
 
 : compressed-size ( byte-array -- n )