diff options
| author | Eduardo Julian | 2017-10-26 19:22:17 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-10-26 19:22:17 -0400 |
| commit | c5397b1bdda2a54348a731264a67e37e1f40fa04 (patch) | |
| tree | c3f322fbdba8765473cccbcb21d3341dfbc1121a /stdlib/source | |
| parent | 64ac2f552ec9e19131fc9671f14d14b0651cd988 (diff) | |
- "primitive" macro can now handle primitives as text.
Diffstat (limited to 'stdlib/source')
| -rw-r--r-- | stdlib/source/lux.lux | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index 384fb67b6..9509c7ad5 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -1957,6 +1957,12 @@ (#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) + (return (list (form$ (list (tag$ ["lux" "Primitive"]) (text$ class-name) (tag$ ["lux" "Nil"]))))) + + (#Cons [_ (#Text class-name)] (#Cons [_ (#Tuple params)] #Nil)) + (return (list (form$ (list (tag$ ["lux" "Primitive"]) (text$ class-name) (untemplate-list params))))) + _ (fail "Wrong syntax for primitive"))) |