basis: ERROR: changes.

[factor.git] / basis / cocoa / messages / messages.factor

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 0b641b5c015a2e8344748ffedba8c85543cce18a..058062d9004dde5a28a245a846d1d8d63c1a401f 100644 (file)
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@@ -67,7 +67,7 @@ ERROR: no-objc-method name ;
     objc-methods get at ;
 
 : lookup-method ( selector -- method )
-    dup ?lookup-method [ ] [ no-objc-method ] ?if ;
+    dup ?lookup-method [ ] [ throw-no-objc-method ] ?if ;
 
 : lookup-sender ( name -- method )
     lookup-method message-senders get at ;
@@ -196,7 +196,7 @@ ERROR: no-objc-type name ;
 
 : decode-type ( ch -- ctype )
     1string dup objc>alien-types get at
-    [ ] [ no-objc-type ] ?if ;
+    [ ] [ throw-no-objc-type ] ?if ;
 
 : (parse-objc-type) ( i string -- ctype )
     [ [ 1 + ] dip ] [ nth ] 2bi {