basis: ERROR: changes.

[factor.git] / basis / gobject-introspection / types / types.factor

diff --git a/basis/gobject-introspection/types/types.factor b/basis/gobject-introspection/types/types.factor
index cd244cf9aaa9567705d1079f03f70c6f762cc8de..1d975523a45918d1956393f4abb2c237de876c12 100644 (file)
--- a/basis/gobject-introspection/types/types.factor
+++ b/basis/gobject-introspection/types/types.factor
@@ -79,7 +79,7 @@ ERROR: unknown-type-error type ;
 
 : get-type-info ( data-type -- info )
     qualified-type-name dup type-infos get-global at
-    [ ] [ unknown-type-error ] ?if ;
+    [ ] [ throw-unknown-type-error ] ?if ;
 
 : find-type-info ( data-type -- info/f )
     qualified-type-name type-infos get-global at ;
@@ -105,8 +105,8 @@ ERROR: deferred-type-error ;
 
 <<
 void* lookup-c-type clone
-    [ drop deferred-type-error ] >>unboxer-quot
-    [ drop deferred-type-error ] >>boxer-quot
+    [ drop throw-deferred-type-error ] >>unboxer-quot
+    [ drop throw-deferred-type-error ] >>boxer-quot
     object >>boxed-class
 "deferred-type" create-word-in typedef
 >>