411 REFERENCE · Wikibooks
Rebol Programming/closure
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
CLOSURE spec body
DESCRIPTION:
Defines a closure function.
CLOSURE is a function value.
ARGUMENTS
spec -- Help string (opt) followed by arg words (and opt type and string) (Type: block)
body -- The body block of the function (Type: block)
(SPECIAL ATTRIBUTES)
catch
SOURCE CODE
closure: func [
"Defines a closure function."
[catch]
spec [block!] {Help string (opt) followed by arg words (and opt type and string)}
body [block!] "The body block of the function"
/local spc bdy word
][
spc: make block! 1 + (2 * length? spec)
insert/only spc [throw]
bdy: make block! 5 + length? spec
insert bdy reduce [:do :make :function! spc body]
parse spec [any [
set-word! | set word any-word! (
insert tail bdy to word! :word
insert tail spc to get-word! :word
insert/only tail spc [any-type!]
) | skip
]]
throw-on-error [make function! spec bdy]
]