replace1 ( i word -- words )


Vocabulary
spelling

Inputs
ian object
wordan object


Outputs
wordsan object


Definition
USING: kernel sequences sequences.private ;

IN: spelling

: replace1 ( i word -- words )
[ ALPHABET ] 2dip bounds-check
[ clone [ set-nth-unsafe ] keep ] 2curry { } map-as ;