From 24cc40e76f83188688ad43c499a44508e1aa5d60 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 5 Aug 2015 20:21:04 -0400
Subject: - Local vars can now longer have prefixed symbols.

---
 source/lux/host/jvm.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'source/lux/host')

diff --git a/source/lux/host/jvm.lux b/source/lux/host/jvm.lux
index f136bd73b..4f3d6df8a 100644
--- a/source/lux/host/jvm.lux
+++ b/source/lux/host/jvm.lux
@@ -24,7 +24,7 @@
   (form^ (do Parser/Monad
            [_ (symbol?^ ["" "finally"])
             expr id^]
-           (M;wrap expr))))
+           (wrap expr))))
 
 (def catch^
   (Parser (, Text Ident AST))
@@ -33,7 +33,7 @@
             ex-class local-symbol^
             ex symbol^
             expr id^]
-           (M;wrap [ex-class ex expr]))))
+           (wrap [ex-class ex expr]))))
 
 (def method-decl^
   (Parser (, (List Text) Text (List Text) Text))
@@ -42,7 +42,7 @@
             name local-symbol^
             inputs (tuple^ (*^ local-symbol^))
             output local-symbol^]
-           (M;wrap [modifiers name inputs output]))))
+           (wrap [modifiers name inputs output]))))
 
 (def field-decl^
   (Parser (, (List Text) Text Text))
@@ -50,14 +50,14 @@
            [modifiers (*^ local-tag^)
             name local-symbol^
             class local-symbol^]
-           (M;wrap [modifiers name class]))))
+           (wrap [modifiers name class]))))
 
 (def arg-decl^
   (Parser (, Text Text))
   (form^ (do Parser/Monad
            [arg-name local-symbol^
             arg-class local-symbol^]
-           (M;wrap [arg-name arg-class]))))
+           (wrap [arg-name arg-class]))))
 
 (def method-def^
   (Parser (, (List Text) Text (List (, Text Text)) Text AST))
@@ -67,7 +67,7 @@
             inputs (tuple^ (*^ arg-decl^))
             output local-symbol^
             body id^]
-           (M;wrap [modifiers name inputs output body]))))
+           (wrap [modifiers name inputs output body]))))
 
 (def method-call^
   (Parser (, Text (List Text) (List AST)))
@@ -78,9 +78,9 @@
             _ (: (Parser (,))
                  (if (i= (size arity-classes)
                          (size arity-args))
-                   (M;wrap [])
+                   (wrap [])
                    (lambda [_] #;None)))]
-           (M;wrap [method arity-classes arity-args])
+           (wrap [method arity-classes arity-args])
            )))
 
 ## [Syntax]
-- 
cgit v1.2.3