Permalink
Browse files

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

  • Loading branch information...
1 parent 0884434 commit 78555afb9e3414145ba3201f00102c4d01163ab3 @bjourne bjourne committed Jan 10, 2017
Showing with 1 addition and 4 deletions.
  1. +1 −4 extra/fuel/help/help.factor
@@ -12,9 +12,6 @@ IN: fuel.help
: find-word ( name -- word/f )
{ [ search ] [ '[ name>> _ = ] all-words swap find nip ] } 1|| ;
-: value-str ( word -- str )
- [ pprint-short ] with-string-writer ; inline
-
: definition-str ( word -- str )
[ see ] with-string-writer ; inline
@@ -47,7 +44,7 @@ SYMBOLS: $doc-path $next-link $prev-link ;
[ parent-topics [ \ $doc-path prefix , ] unless-empty ]
[ help:word-help % ]
[ 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 , ]
[ methods-str [ \ $methods swap 2array , ] when* ]
} cleave

0 comments on commit 78555af

Please sign in to comment.