diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/lang/extension/statement.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/new-luxc/source/luxc/lang/extension/statement.lux b/new-luxc/source/luxc/lang/extension/statement.lux index 9b7b9da52..7ee6b898d 100644 --- a/new-luxc/source/luxc/lang/extension/statement.lux +++ b/new-luxc/source/luxc/lang/extension/statement.lux @@ -54,7 +54,7 @@ (def: (ensure-valid-alias def-name annotations value) (-> Text Code Code (Meta Any)) (case [annotations value] - (^multi [[_ (#.Record pairs)] [_ (#.Symbol _)]] + (^multi [[_ (#.Record pairs)] [_ (#.Identifier _)]] (|> pairs list.size (n/= +1))) (:: macro.Monad<Meta> wrap []) @@ -65,13 +65,13 @@ (-> Text //.Statement) (function (_ inputsC+) (case inputsC+ - (^ (list [_ (#.Symbol ["" def-name])] valueC annotationsC)) + (^ (list [_ (#.Identifier ["" def-name])] valueC annotationsC)) (hostL.with-context def-name (lang.with-fresh-type-env (do macro.Monad<Meta> [syntheses //.all-syntheses [annotationsI annotationsV] (process-annotations syntheses annotationsC)] - (case (macro.get-symbol-ann (ident-for #.alias) annotationsV) + (case (macro.get-identifier-ann (ident-for #.alias) annotationsV) (#.Some real-def) (do @ [_ (ensure-valid-alias def-name annotationsV valueC) @@ -103,7 +103,7 @@ (-> Text //.Statement) (function (_ inputsC+) (case inputsC+ - (^ (list [_ (#.Symbol ["" args])] programC)) + (^ (list [_ (#.Identifier ["" args])] programC)) (do macro.Monad<Meta> [[_ programA] (<| lang.with-scope (scopeL.with-local [args (type (List Text))]) |