help: for $default, make sure effect-in is a string.
parent
65eb9a1d31
commit
880ec55d6f
|
@ -31,7 +31,7 @@ GENERIC: word-help* ( word -- content )
|
||||||
first2 dup effect? [ \ $quotation swap 2array ] when
|
first2 dup effect? [ \ $quotation swap 2array ] when
|
||||||
] [
|
] [
|
||||||
object
|
object
|
||||||
] if
|
] if [ effect>string ] dip
|
||||||
] { } map>assoc
|
] { } map>assoc
|
||||||
] bi@ append members $values ;
|
] bi@ append members $values ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue