basis: ERROR: changes.

[factor.git] / basis / libc / libc.factor

diff --git a/basis/libc/libc.factor b/basis/libc/libc.factor
index 5490070397e0202909bb50bb8d1dadea17981b71..3d1bf3494e527a897c187d40679a10a27c74279a 100644 (file)
--- a/basis/libc/libc.factor
+++ b/basis/libc/libc.factor
@@ -45,7 +45,7 @@ M: object strerror strerror_unsafe ;
 
 ERROR: libc-error errno message ;
 
-: (throw-errno) ( errno -- * ) dup strerror libc-error ;
+: (throw-errno) ( errno -- * ) dup strerror throw-libc-error ;
 
 : throw-errno ( -- * ) errno (throw-errno) ;
 
@@ -72,7 +72,7 @@ M: bad-ptr summary
     drop "Memory allocation failed" ;
 
 : check-ptr ( c-ptr -- c-ptr )
-    [ bad-ptr ] unless* ;
+    [ throw-bad-ptr ] unless* ;
 
 ERROR: realloc-error ptr size ;
 
@@ -100,7 +100,7 @@ PRIVATE>
 
 : realloc ( alien size -- newalien )
     [ >c-ptr ] dip
-    over malloc-exists? [ realloc-error ] unless
+    over malloc-exists? [ throw-realloc-error ] unless
     [ drop ] [ (realloc) check-ptr ] 2bi
     [ delete-malloc ] [ add-malloc ] bi* ;