diff options
| author | Eduardo Julian | 2021-07-17 22:48:54 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-07-17 22:48:54 -0400 |
| commit | 442d1557b879a8a4bd76f441f72a17bfb71cf05f (patch) | |
| tree | 7726138a487b3d64081c2cfdf99a564cf2b6ed7b /lux-python | |
| parent | 2c99b4515447315d76a8dc203a2dbcafc09506ea (diff) | |
Now allowing compilers to generate custom-named outputs.
Diffstat (limited to 'lux-python')
| -rw-r--r-- | lux-python/source/program.lux | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lux-python/source/program.lux b/lux-python/source/program.lux index f00594c99..f7c167368 100644 --- a/lux-python/source/program.lux +++ b/lux-python/source/program.lux @@ -276,8 +276,9 @@ (implementation (def: evaluate! evaluate!) (def: execute! execute!) - (def: (define! context input) - (let [global (reference.artifact context) + (def: (define! context custom input) + (let [global (maybe.default (reference.artifact context) + custom) @global (_.var global)] (do try.monad [#let [definition (_.set (list @global) input)] @@ -291,10 +292,10 @@ try.assume (:as (_.Statement Any)))) - (def: (re_learn context content) + (def: (re_learn context custom content) (execute! content)) - (def: (re_load context content) + (def: (re_load context custom content) (do try.monad [_ (execute! content)] (evaluate! context (_.var (reference.artifact context)))))))))) |