From c79621772c862e9b94e1fc43e11996cbac54fed1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 29 Jul 2015 20:20:26 -0400
Subject: - lux;using no longer prefixes variables. - Fixed several bugs with
 host (JVM) interop. - Now packaging everything in a .jar file
 ("program.jar").

---
 source/lux.lux | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'source/lux.lux')

diff --git a/source/lux.lux b/source/lux.lux
index c51929635..8861bc241 100644
--- a/source/lux.lux
+++ b/source/lux.lux
@@ -2524,8 +2524,8 @@
           (let [pattern (record$ (map (: (-> (, Text Type) (, Syntax Syntax))
                                          (lambda [slot]
                                            (let [[sname stype] slot
-                                                 full-name (split-slot sname)]
-                                             [(tag$ full-name) (symbol$ full-name)])))
+                                                 [module name] (split-slot sname)]
+                                             [(tag$ [module name]) (symbol$ ["" name])])))
                                       slots))]
             (return (list (` (_lux_case (~ struct) (~ pattern) (~ body))))))
 
-- 
cgit v1.2.3