push-help-text ( accum sbuf obj -- accum sbuf' )

Vocabulary

help.syntax.private

Inputs

accum	an object
sbuf	an object
obj	an object

Outputs

accum	an object
sbuf'	an object

Definition

USING: kernel sequences strings ;

IN: help.syntax.private

: push-help-text ( accum sbuf obj -- accum sbuf' )
    [ dup empty? [ >string suffix! SBUF" " clone ] unless ]
    [ [ suffix! ] curry dip ] bi* ;