From a62ce3f9c2b605e0033f4772b0f64c4525de4d86 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 11 Aug 2021 02:38:59 -0400
Subject: Relocated maybe and lazy from data to control.

---
 lux-ruby/source/program.lux | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'lux-ruby')

diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index 33a7ff9cb..2a07dc220 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -9,6 +9,7 @@
      ["." monad (#+ do)]]
     [control
      [pipe (#+ new>)]
+     ["." maybe]
      ["." try (#+ Try)]
      ["." exception (#+ exception:)]
      ["." io (#+ IO io)]
@@ -18,7 +19,6 @@
      ["<>" parser
       ["<.>" code]]]
     [data
-     ["." maybe]
      ["." text ("#\." hash)
       ["%" format (#+ format)]
       [encoding
@@ -140,7 +140,7 @@
   (monad.map meta.monad
              (function (_ class)
                (do meta.monad
-                 [var (macro.gensym "input")]
+                 [var (macro.identifier "input")]
                  (wrap (code.record (list [var class])))))
              input_classes))
 
@@ -388,7 +388,7 @@
                (wrapped_lux_value lux_structure value)
 
                #.None
-               (error! (exception.construct ..invalid_tuple_access [(org/jruby/RubyFixnum::getLongValue member)])))
+               (panic! (exception.construct ..invalid_tuple_access [(org/jruby/RubyFixnum::getLongValue member)])))
 
              #.None)
            (case (ffi.check org/jruby/RubyString member)
@@ -416,10 +416,10 @@
                  (wrapped_lux_value lux_structure value)
 
                  #.None
-                 (error! (exception.construct ..nil_has_no_lux_representation [])))
+                 (panic! (exception.construct ..nil_has_no_lux_representation [])))
 
                field
-               (error! (exception.construct ..invalid_variant_access [field])))
+               (panic! (exception.construct ..invalid_variant_access [field])))
              
              #.None)
            (case (ffi.check org/jruby/RubyRange member)
@@ -432,10 +432,10 @@
                  (lux_structure (java/util/Arrays::copyOfRange value first (i.+ first size))))
 
                _
-               (error! (exception.construct ..invalid_index (:as java/lang/Object member))))
+               (panic! (exception.construct ..invalid_index (:as java/lang/Object member))))
 
              #.None)
-           (error! (exception.construct ..invalid_index (:as java/lang/Object member))))))))
+           (panic! (exception.construct ..invalid_index (:as java/lang/Object member))))))))
 
 (def: (lux_wrapper_equality value)
   (-> (Array java/lang/Object) org/jruby/internal/runtime/methods/DynamicMethod)
@@ -532,7 +532,7 @@
            (org/jruby/RubyBoolean::newBoolean ..initial_ruby_runtime))
 
        #.None
-       (error! (exception.construct ..invalid_operation ["respond_to?"]))))))
+       (panic! (exception.construct ..invalid_operation ["respond_to?"]))))))
 
 (exception: (unknown_method {method Text})
   (exception.report
@@ -565,7 +565,7 @@
                         (org/jruby/runtime/callsite/CacheEntry::new (..lux_wrapper_respond_to? value) 4)
 
                         _
-                        (error! (exception.construct ..unknown_method [(:as Text method)])))))]
+                        (panic! (exception.construct ..unknown_method [(:as Text method)])))))]
     (org/jruby/java/proxies/JavaProxy::new ..initial_ruby_runtime meta_class (:as java/lang/Object value))))
 
 (exception: (cannot_apply_a_non_function {object java/lang/Object})
-- 
cgit v1.2.3