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

fuel.help: value-str -> unparse-short

char-rename
Björn Lindqvist 2017-01-10 12:21:42 +01:00
parent 0884434c0f
commit 78555afb9e
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/fuel/help/help.factor
View File

@ -12,9 +12,6 @@ IN: fuel.help
: find-word ( name -- word/f ) : find-word ( name -- word/f )
{ [ search ] [ '[ name>> _ = ] all-words swap find nip ] } 1|| ; { [ search ] [ '[ name>> _ = ] all-words swap find nip ] } 1|| ;
: value-str ( word -- str )
[ pprint-short ] with-string-writer ; inline
: definition-str ( word -- str ) : definition-str ( word -- str )
[ see ] with-string-writer ; inline [ see ] with-string-writer ; inline
@ -47,7 +44,7 @@ SYMBOLS: $doc-path $next-link $prev-link ;
[ parent-topics [ \ $doc-path prefix , ] unless-empty ] [ parent-topics [ \ $doc-path prefix , ] unless-empty ]
[ help:word-help % ] [ help:word-help % ]
[ related-words [ \ $related swap 2array , ] unless-empty ] [ related-words [ \ $related swap 2array , ] unless-empty ]
[ get-global [ \ $value swap value-str 2array , ] when* ] [ get-global [ \ $value swap unparse-short 2array , ] when* ]
[ \ $definition swap definition-str 2array , ] [ \ $definition swap definition-str 2array , ]
[ methods-str [ \ $methods swap 2array , ] when* ] [ methods-str [ \ $methods swap 2array , ] when* ]
} cleave } cleave