diff options
Diffstat (limited to 'stdlib/source/library/lux.lux')
-rw-r--r-- | stdlib/source/library/lux.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux index 6eb000a79..9aed7e4de 100644 --- a/stdlib/source/library/lux.lux +++ b/stdlib/source/library/lux.lux @@ -659,7 +659,7 @@ .public) ... (type: .public Macro -... (primitive "#Macro")) +... (Primitive "#Macro")) ("lux def" Macro ("lux type check type" {#Named [..prelude_module "Macro"] @@ -1642,7 +1642,7 @@ (in [meta output']))} [replace? token])) -(macro:' .public (primitive tokens) +(macro:' .public (Primitive tokens) ({{#Item [_ {#Text class_name}] {#End}} (in_meta (list (variant$ (list (identifier$ [..prelude_module "#Primitive"]) (text$ class_name) |#End|)))) @@ -1650,7 +1650,7 @@ (in_meta (list (variant$ (list (identifier$ [..prelude_module "#Primitive"]) (text$ class_name) (untemplated_list params))))) _ - (failure "Wrong syntax for primitive")} + (failure "Wrong syntax for Primitive")} tokens)) (def:'' .private (current_module_name state) @@ -4993,9 +4993,9 @@ (def: (recursive_type g!self g!dummy name body) (-> Code Code Text Code Code) (` ((.All ((~ g!self) (~ g!dummy)) - (~ (let$ (local_identifier$ name) (` {.#Apply (..primitive "") (~ g!self)}) + (~ (let$ (local_identifier$ name) (` {.#Apply (..Primitive "") (~ g!self)}) body))) - (..primitive "")))) + (..Primitive "")))) (macro: .public (Rec tokens) (case tokens |