From 5fdf2b62f1f97026f76c0336a225f8b510762b46 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 16 Sep 2021 20:16:22 -0400
Subject: Adapted Lua, Python and Ruby compilers to the new variant format.

---
 lux-ruby/source/program.lux | 17 ++++-------------
 1 file changed, 4 insertions(+), 13 deletions(-)

(limited to 'lux-ruby/source')

diff --git a/lux-ruby/source/program.lux b/lux-ruby/source/program.lux
index f2e429d15..ee569e392 100644
--- a/lux-ruby/source/program.lux
+++ b/lux-ruby/source/program.lux
@@ -28,8 +28,7 @@
       ["[0]" list]]]
     ["[0]" macro
      [syntax {"+" syntax:}]
-     ["[0]" template]
-     ["[0]" code]]
+     ["[0]" template]]
     [math
      [number {"+" hex}
       ["n" nat]
@@ -132,14 +131,6 @@
   ["[1]::[0]"
    (getValue [] java/lang/Object)])
 
-(syntax: (method_inputs [input_classes (<code>.tuple (<>.some <code>.any))])
-  (monad.each meta.monad
-              (function (_ class)
-                (do meta.monad
-                  [var (macro.symbol "input")]
-                  (in (code.record (list [var class])))))
-              input_classes))
-
 (import: org/jruby/runtime/JavaSites$CheckedSites)
 (import: org/jruby/runtime/builtin/Variable)
 (import: org/jruby/runtime/builtin/InstanceVariables)
@@ -609,12 +600,12 @@
                                             output)))))]
         (: (Host _.Expression _.Statement)
            (implementation
-            (def: (evaluate! context code)
+            (def: (evaluate context code)
               (run! code))
 
-            (def: execute! run!)
+            (def: execute run!)
 
-            (def: (define! context custom input)
+            (def: (define context custom input)
               (let [global (maybe.else (reference.artifact context)
                                        custom)
                     @global (_.global global)]
-- 
cgit v1.2.3