From 64822a7a302ef5e3269f4bb39c0f7c16caf7b7c4 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 29 Mar 2013 13:21:42 -0700
Subject: [PATCH] cocoa.messages: use ERROR:.

---
 basis/cocoa/messages/messages.factor | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/basis/cocoa/messages/messages.factor b/basis/cocoa/messages/messages.factor
index 543415267d..f1e2402e84 100644
--- 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 )
     [