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

Fix see-methods when class or generic has no methods

db4
Slava Pestov 2008-11-28 23:24:59 -06:00
parent 6f0ec04310
commit d0a54e3e8b
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
basis/help/markup/markup.factor
View File

@ -285,15 +285,16 @@ M: f ($instance)
: $see ( element -- ) first [ see ] ($see) ; : $see ( element -- ) first [ see ] ($see) ;
: $see-methods ( element -- ) first [ see-methods ] ($see) ;
: $synopsis ( element -- ) first [ synopsis write ] ($see) ; : $synopsis ( element -- ) first [ synopsis write ] ($see) ;
: $definition ( element -- ) : $definition ( element -- )
"Definition" $heading $see ; "Definition" $heading $see ;
: $methods ( element -- ) : $methods ( element -- )
"Methods" $heading $see-methods ; first methods [
"Methods" $heading
[ see-all ] ($see)
] unless-empty ;
: $value ( object -- ) : $value ( object -- )
"Variable value" $heading "Variable value" $heading

7
basis/prettyprint/prettyprint.factor
View File

@ -370,9 +370,12 @@ M: word see
: (see-methods) ( generic -- seq ) : (see-methods) ( generic -- seq )
"methods" word-prop values natural-sort ; "methods" word-prop values natural-sort ;
: see-methods ( word -- ) : methods ( word -- seq )
[ [
dup class? [ dup (see-implementors) % ] when dup class? [ dup (see-implementors) % ] when
dup generic? [ dup (see-methods) % ] when dup generic? [ dup (see-methods) % ] when
drop drop
] { } make prune see-all ; ] { } make prune ;
: see-methods ( word -- )
methods see-all ;