cocoa.messages: use ERROR:.

2013-03-29 13:21:42 -07:00 · 2013-03-29 13:21:42 -07:00 · 64822a7a30
parent 98f05ef812
commit 64822a7a30
1 changed files with 3 additions and 2 deletions
--- a/basis/cocoa/messages/messages.factor
+++ b/basis/cocoa/messages/messages.factor
@ -53,9 +53,10 @@ SYMBOL: objc-methods

 objc-methods [ H{ } clone ] initialize

+ERROR: no-objc-method name ;
+
 : lookup-method ( selector -- method )
-    dup objc-methods get at
-    [ ] [ "No such method: " prepend throw ] ?if ;
+    dup objc-methods get at [ ] [ no-objc-method ] ?if ;

 MEMO: make-prepare-send ( selector method super? -- quot )
    [