diff options
Diffstat (limited to 'stdlib/source/lux.lux')
| -rw-r--r-- | stdlib/source/lux.lux | 12 |
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)) |