export.red

Red []

export: func [
    "Export a value to the global context"
    'word [set-word!]
    value
    /to ctx [any-word! any-object! function!]
] [
    set word :value
    unless :ctx [ctx: system/words]
    set bind word ctx :value
]

Examples:

>> context [
[    a: 1
[    b: 2
[    export f: func [c] [a + b + c]
[    ]
== make object! [
    a: 1
    b: 2
    f: func [c][a + b + c]
]
>> f 2
== 5
>> context [
[    other-ctx: context [
[    f: none
[    ]
[    a: 1
[    b: 2
[    export/to f: func [c] [a + b + c] other-ctx
[    ]
== make object! [
    other-ctx: make object! [
        f: func [c][a + b + c]
    ]
    a: 1
    b: 2
    f: func [c][a + b + c]
]