steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cocoa.messages: use ERROR:.

db4
John Benediktsson 2013-03-29 13:21:42 -07:00
parent 98f05ef812
commit 64822a7a30
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/cocoa/messages/messages.factor
View File

@ -53,9 +53,10 @@ SYMBOL: objc-methods
objc-methods [ H{ } clone ] initialize objc-methods [ H{ } clone ] initialize
ERROR: no-objc-method name ;
: lookup-method ( selector -- method ) : lookup-method ( selector -- method )
dup objc-methods get at dup objc-methods get at [ ] [ no-objc-method ] ?if ;
[ ] [ "No such method: " prepend throw ] ?if ;
MEMO: make-prepare-send ( selector method super? -- quot ) MEMO: make-prepare-send ( selector method super? -- quot )
[ [