basis: ERROR: changes.

[factor.git] / basis / tools / annotations / assertions / assertions.factor

diff --git a/basis/tools/annotations/assertions/assertions.factor b/basis/tools/annotations/assertions/assertions.factor
index 0e3c5cbb8426f27f5418f4e7aae6f7d8cb291a21..1ff38107af44ab51faffbd38d936a8635fbc743b 100644 (file)
--- a/basis/tools/annotations/assertions/assertions.factor
+++ b/basis/tools/annotations/assertions/assertions.factor
@@ -24,13 +24,13 @@ ERROR: invalid-stream-read-unsafe-return out-len in-len buf port word ;
 :: check-stream-read-unsafe-before ( n buf stream word -- n buf stream )
     buf alien? [ n buf port ] [
         n buf byte-length >
-        [ n buf stream word invalid-stream-read-unsafe ]
+        [ n buf stream word throw-invalid-stream-read-unsafe ]
         [ n buf stream ] if
     ] if ; inline
 
 :: check-stream-read-unsafe-after ( count n buf stream word -- count )
     count n >
-    [ count n buf stream word invalid-stream-read-unsafe-return ]
+    [ count n buf stream word throw-invalid-stream-read-unsafe-return ]
     [ count ] if ;
 
 : (assert-stream-read-unsafe) ( word -- )