append-with-conjunction ( str1 str2 -- newstr )

Vocabulary

math.text.english.private

Inputs

str1	an object
str2	an object

Outputs

newstr

an object

Definition

USING: kernel namespaces sequences ;

IN: math.text.english.private

: append-with-conjunction ( str1 str2 -- newstr )
    swap
    [ and-needed? get " and " ", " ? glue and-needed? off ]
    unless-empty ;