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

Update docs for lookup-method.

db4
Doug Coleman 2011-10-03 15:55:53 -07:00
parent 181f11faa8
commit bf8bf46d16
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/generic/generic-docs.factor
View File

@ -39,7 +39,7 @@ $nl
"Methods can be added to existing generic words:" "Methods can be added to existing generic words:"
{ $subsections create-method } { $subsections create-method }
"Method definitions can be looked up:" "Method definitions can be looked up:"
{ $subsections method } { $subsections lookup-method ?lookup-method }
"Finding the most specific method for an object:" "Finding the most specific method for an object:"
{ $subsections effective-method } { $subsections effective-method }
"A generic word contains methods; the list of methods specializing on a class can also be obtained:" "A generic word contains methods; the list of methods specializing on a class can also be obtained:"
@ -131,12 +131,18 @@ HELP: M\
{ $class-description "Pushes a method on the stack." } { $class-description "Pushes a method on the stack." }
{ $examples { $code "M\\ fixnum + see" } { $code "USING: ui.gadgets.editors ui.render ;" "M\\ editor draw-gadget* edit" } } ; { $examples { $code "M\\ fixnum + see" } { $code "USING: ui.gadgets.editors ui.render ;" "M\\ editor draw-gadget* edit" } } ;
HELP: method HELP: lookup-method
{ $values { "class" class } { "generic" generic } { "method" method } }
{ $description "Looks up a method definition." }
{ $class-description "The class of method bodies, which are words with special word properties set." }
{ $errors "Throws an error if the method does not exist." } ;
HELP: ?lookup-method
{ $values { "class" class } { "generic" generic } { "method/f" { $maybe method } } } { $values { "class" class } { "generic" generic } { "method/f" { $maybe method } } }
{ $description "Looks up a method definition." } { $description "Looks up a method definition." }
{ $class-description "The class of method bodies, which are words with special word properties set." } ; { $class-description "The class of method bodies, which are words with special word properties set." } ;
{ method create-method POSTPONE: M: } related-words { lookup-method ?lookup-method create-method POSTPONE: M: } related-words
HELP: <method> HELP: <method>
{ $values { "class" class } { "generic" generic } { "method" "a new method definition" } } { $values { "class" class } { "generic" generic } { "method" "a new method definition" } }

2
core/generic/generic.factor
View File

@ -30,7 +30,7 @@ ERROR: method-lookup-failed class generic ;
: ?lookup-method ( class generic -- method/f ) : ?lookup-method ( class generic -- method/f )
"methods" word-prop at ; "methods" word-prop at ;
: lookup-method ( class generic -- method/* ) : lookup-method ( class generic -- method )
2dup ?lookup-method [ 2nip ] [ method-lookup-failed ] if* ; 2dup ?lookup-method [ 2nip ] [ method-lookup-failed ] if* ;
<PRIVATE <PRIVATE