(recombine) ( str index seq -- newstr )

Vocabulary

math.text.english.private

Inputs

str	an object
index	an object
seq	an object

Outputs

newstr

an object

Definition

USING: kernel sequences ;

IN: math.text.english.private

: (recombine) ( str index seq -- newstr )
    2dup nth 0 =
    [ 2drop ] [ text-with-scale append-with-conjunction ] if ;