- Updated to the latest changes in stdlib.

1 files changed, 8 insertions, 8 deletions

diff --git a/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux b/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux
index 49d51eb3c..5cf359ad0 100644
--- a/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux
+++ b/new-luxc/test/test/luxc/analyser/procedure/host.jvm.lux
@@ -4,7 +4,7 @@
        (control [monad #+ do]
                 pipe)
        (concurrency [atom])
-       (data ["R" result]
+       (data ["e" error]
              [product]
              [maybe]
              [text "text/" Eq<Text>]
@@ -13,9 +13,9 @@
                    [list "list/" Fold<List>]
                    [dict]))
        ["r" math/random "r/" Monad<Random>]
-       [type]
-       [macro #+ Monad<Lux>]
-       (macro [code])
+       [meta #+ Monad<Meta>]
+       (meta [code]
+             [type])
        test)
   (luxc ["&" base]
         ["&;" scope]
@@ -32,16 +32,16 @@
 (do-template [<name> <success> <failure>]
   [(def: (<name> procedure params output-type)
      (-> Text (List Code) Type Bool)
-     (|> (do Monad<Lux>
+     (|> (do Monad<Meta>
            [runtime-bytecode @runtime;generate]
            (&;with-scope
              (&;with-expected-type output-type
                (@;analyse-procedure analyse procedure params))))
-         (macro;run (init-compiler []))
-         (case> (#R;Success _)
+         (meta;run (init-compiler []))
+         (case> (#e;Success _)
                 <success>
 
-                (#R;Error error)
+                (#e;Error error)
                 <failure>)))]
 
   [success true false]