aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/lux.lux12
1 files changed, 3 insertions, 9 deletions
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))