From 54030fb3b9cf985863a4d972573e59c9098c3076 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 27 Nov 2017 05:16:13 -0400
Subject: - Changed the syntax involved in JVM host-interop.

---
 stdlib/source/lux.lux | 12 +++---------
 1 file changed, 3 insertions(+), 9 deletions(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 65167b8e6..6470e5c3b 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -1965,17 +1965,11 @@
 (macro:' #export (primitive tokens)
   (list [(tag$ ["lux" "doc"])
          (text$ "## Macro to treat define new primitive types.
-                 (primitive java.lang.Object)
+                 (primitive \"java.lang.Object\")
 
-                 (primitive java.util.List [java.lang.Long])")])
+                 (primitive \"java.util.List\" [(primitive \"java.lang.Long\")])")])
   ("lux case" tokens
-   {(#Cons [_ (#Symbol "" class-name)] #Nil)
-    (return (list (form$ (list (tag$ ["lux" "Primitive"]) (text$ class-name) (tag$ ["lux" "Nil"])))))
-
-    (#Cons [_ (#Symbol "" class-name)] (#Cons [_ (#Tuple params)] #Nil))
-    (return (list (form$ (list (tag$ ["lux" "Primitive"]) (text$ class-name) (untemplate-list params)))))
-
-    (#Cons [_ (#Text class-name)] #Nil)
+   {(#Cons [_ (#Text class-name)] #Nil)
     (return (list (form$ (list (tag$ ["lux" "Primitive"]) (text$ class-name) (tag$ ["lux" "Nil"])))))
 
     (#Cons [_ (#Text class-name)] (#Cons [_ (#Tuple params)] #Nil))
-- 
cgit v1.2.3