control-transfer.r

REBOL []

unset 'exit
unset 'return

function-ctx: context [
    exit: :system/contexts/system/exit
    return: :system/contexts/system/return
]

func: make function! [[
    spec [block!]
    body [block!]
][
    make function! copy reduce [
        copy/deep spec
        bind/copy body function-ctx
    ]
]]