diff options
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/analysis/structure.lux')
-rw-r--r-- | stdlib/source/lux/tool/compiler/phase/analysis/structure.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/analysis/structure.lux b/stdlib/source/lux/tool/compiler/phase/analysis/structure.lux index 9d78121d5..da8f0dee4 100644 --- a/stdlib/source/lux/tool/compiler/phase/analysis/structure.lux +++ b/stdlib/source/lux/tool/compiler/phase/analysis/structure.lux @@ -34,7 +34,7 @@ ["Tag" (%n tag)] ["Expression" (%code code)])) -(do-template [<name>] +(template [<name>] [(exception: #export (<name> {type Type} {members (List Code)}) (ex.report ["Type" (%type type)] ["Expression" (%code (` [(~+ members)]))]))] @@ -46,7 +46,7 @@ (exception: #export (not-a-quantified-type {type Type}) (%type type)) -(do-template [<name>] +(template [<name>] [(exception: #export (<name> {type Type} {tag Tag} {code Code}) (ex.report ["Type" (%type type)] ["Tag" (%n tag)] @@ -60,7 +60,7 @@ (ex.report ["Key" (%code key)] ["Record" (%code (code.record record))])) -(do-template [<name>] +(template [<name>] [(exception: #export (<name> {key Name} {record (List [Name Code])}) (ex.report ["Tag" (%code (code.tag key))] ["Record" (%code (code.record (list;map (function (_ [keyI valC]) |