mirror of
https://github.com/zaphar/ucg.git
synced 2025-07-21 18:10:42 -04:00
17 lines
308 B
Plaintext
17 lines
308 B
Plaintext
let maybe = module{
|
|
val = NULL,
|
|
} => {
|
|
let do = func (op) => select (mod.val != NULL), NULL, {
|
|
true = op(mod.val),
|
|
};
|
|
};
|
|
|
|
let if = module{
|
|
test = false,
|
|
} => {
|
|
let do = func (op, arg) => select mod.test, arg, {
|
|
true = op(arg),
|
|
};
|
|
};
|
|
|
|
let identity = func (arg) => arg; |