giesse

make object! [
    collection: #[none]
    _result: #[none]
    _stack: []
    _push-state: func [][
        append/only _stack collection
    ]
    _pop-state: func [][
        collection: take/last _stack
    ]

giesse

prin = function(text) {
    sys.print(text);
    return text;
};
print = function(text) {
    sys.print(text + "\n");
    return text;
};
jsProbe = function(value) {
    print(sys.inspect(value));

giesse

Red []

; [ counter-clockwise marble-number clockwise ]
counter-clockwise: 1
marble-number: 2
clockwise: 3

make-circle: function [marble [integer!]] [
    circle: reduce [none marble none]
    circle/:counter-clockwise: circle

giesse

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]

giesse

Red []

e.g.: :comment

; ideally not exported on the global context
delta-time*: function [code count] [
    start: now/precise
    loop count code
    difference now/precise start
]

giesse

Keybase proof

I hereby claim:

• I am giesse on github.
• I am giesse (https://keybase.io/giesse) on keybase.
• I have a public key ASD7rJfWzRs0AFSTbGvCKUIb2ogWLAVjNtDKhIi_DDP_bAo

To claim this, I am signing this object: