diff options
| author | Eduardo Julian | 2017-11-27 05:16:13 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-27 05:16:13 -0400 |
| commit | 54030fb3b9cf985863a4d972573e59c9098c3076 (patch) | |
| tree | 9fa8ee95881ca23a2d62002c6d35f03d41866ee9 /stdlib/source/lux.lux | |
| parent | 8003796cce911fa7c4958a83a2c55e6cbe16c8aa (diff) | |
- Changed the syntax involved in JVM host-interop.
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)) |