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-ruby/source/program.lux | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'lux-ruby')

diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index a221e6529..2e77c85f4 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -623,8 +623,9 @@
 
             (def: execute! run!)
 
-            (def: (define! context input)
-              (let [global (reference.artifact context)
+            (def: (define! context custom input)
+              (let [global (maybe.default (reference.artifact context)
+                                          custom)
                     @global (_.global global)]
                 (do try.monad
                   [#let [definition (_.set (list @global) input)]
@@ -637,10 +638,10 @@
                   try.assume
                   (:as _.Statement)))
 
-            (def: (re_learn context content)
+            (def: (re_learn context custom content)
               (run! content))
             
-            (def: (re_load context content)
+            (def: (re_load context custom content)
               (do try.monad
                 [_ (run! content)]
                 (run! (_.global (reference.artifact context))))))))))
-- 
cgit v1.2.3