From 442d1557b879a8a4bd76f441f72a17bfb71cf05f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 17 Jul 2021 22:48:54 -0400
Subject: Now allowing compilers to generate custom-named outputs.

---
 lux-python/source/program.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'lux-python')

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))))))))))
-- 
cgit v1.2.3