?push-help-space ( accum sbuf obj -- accum sbuf' obj )


Vocabulary
help.syntax.private

Inputs
accuman object
sbufan object
objan object


Outputs
accuman object
sbuf'an object
objan object


Definition
USING: arrays combinators.short-circuit kernel sequences strings
;

IN: help.syntax.private

: ?push-help-space ( accum sbuf obj -- accum sbuf' obj )
over empty? [
pick
[ f ] [
last {
[ string? not ]
[ dup array? [ ?first ] when help-block? not ]
} 1&&
] if-empty
] [ over last " (" member? not ] if over string?
[ over ?first " .,;:)" member? not and ] when
[ [ 32 suffix! ] dip ] when ;