! define a BEND word

SYNTAX: BEND:
    [
        scan-new-word scan-effect
        over "fork" associate [ parse-definition ] with-words swap
    ] with-definition define-declared ;

! define an inline BEND operation

SYMBOL: fork

SYNTAX: BEND[
    gensym dup parse-quotation over
    '[ dup fork eq? [ drop _ ] when ] deep-map
    dup infer define-declared suffix! ;