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

diff --git a/extra/fuel/help/help.factor b/extra/fuel/help/help.factor
index 53af89bf30794fe3de451b00de51d3d9d8701d5c..582aafaace36ab5138812f109004857920943056 100644 (file)
--- a/extra/fuel/help/help.factor
+++ b/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