help: for $default, make sure effect-in is a string.

2016-04-07 07:25:53 -07:00 · 2016-04-07 07:25:53 -07:00 · 880ec55d6f
parent 65eb9a1d31
commit 880ec55d6f
1 changed files with 1 additions and 1 deletions
--- a/basis/help/help.factor
+++ b/basis/help/help.factor
@ -31,7 +31,7 @@ GENERIC: word-help* ( word -- content )
                first2 dup effect? [ \ $quotation swap 2array ] when
            ] [
                object
-            ] if
+            ] if [ effect>string ] dip
        ] { } map>assoc
    ] bi@ append members $values ;