aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
diff options
context:
space:
mode:
Diffstat (limited to 'stdlib/source/lux/tool/compiler/phase/extension/statement.lux')
-rw-r--r--stdlib/source/lux/tool/compiler/phase/extension/statement.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/lux/tool/compiler/phase/extension/statement.lux b/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
index 030bc5a2b..10a3b4985 100644
--- a/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
+++ b/stdlib/source/lux/tool/compiler/phase/extension/statement.lux
@@ -146,7 +146,7 @@
(wrap ////statement.no-requirements))
_
- (///.throw //.invalid-syntax [extension-name inputsC+]))))
+ (///.throw //.invalid-syntax [extension-name %code inputsC+]))))
(def: imports
(Syntax (List Import))
@@ -170,7 +170,7 @@
(wrap imports)
(#error.Failure error)
- (///.throw //.invalid-syntax [extension-name (list annotationsV)]))
+ (///.throw //.invalid-syntax [extension-name %code (list annotationsV)]))
_ (////statement.lift-analysis
(do @
[_ (monad.map @ (function (_ [module alias])
@@ -185,7 +185,7 @@
#////statement.referrals (list)}))
_
- (///.throw //.invalid-syntax [extension-name inputsC+]))))
+ (///.throw //.invalid-syntax [extension-name %code inputsC+]))))
## TODO: Reify aliasing as a feature of the compiler, instead of
## manifesting it implicitly through definition annotations.
@@ -215,7 +215,7 @@
(wrap ////statement.no-requirements))
_
- (///.throw //.invalid-syntax [extension-name inputsC+]))))
+ (///.throw //.invalid-syntax [extension-name %code inputsC+]))))
(template [<mame> <type> <scope>]
[(def: <mame>
@@ -240,7 +240,7 @@
(wrap ////statement.no-requirements))
_
- (///.throw //.invalid-syntax [extension-name inputsC+]))))]
+ (///.throw //.invalid-syntax [extension-name %code inputsC+]))))]
[def::analysis ////analysis.Handler ////statement.lift-analysis]
[def::synthesis ////synthesis.Handler ////statement.lift-synthesis]
@@ -293,7 +293,7 @@
(wrap ////statement.no-requirements))
_
- (///.throw //.invalid-syntax [extension-name inputsC+]))))
+ (///.throw //.invalid-syntax [extension-name %code inputsC+]))))
(def: (bundle::def program)
(All [anchor expression statement]