diff options
| -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"))) |