aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/library/lux/meta/macro/context.lux
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--stdlib/source/library/lux/meta/macro/context.lux12
1 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/meta/macro/context.lux b/stdlib/source/library/lux/meta/macro/context.lux
index 4ec34b5df..09b295b11 100644
--- a/stdlib/source/library/lux/meta/macro/context.lux
+++ b/stdlib/source/library/lux/meta/macro/context.lux
@@ -75,7 +75,7 @@
(meta.failure (exception.error ..no_active_context [])))))
(.def .public peek
- (syntax (_ [g!it (at ?.monad each code.symbol ?code.global)])
+ (syntax (_ [g!it (of ?.monad each code.symbol ?code.global)])
(in (list (` (..peek' [(, g!it) (.symbol (, g!it))]))))))
(.def .public (search' ? [_ context])
@@ -93,7 +93,7 @@
(.def .public search
(syntax (_ [g!? ?code.any
- g!context (at ?.monad each code.symbol ?code.global)])
+ g!context (of ?.monad each code.symbol ?code.global)])
(in (list (` (..search' (, g!?) [(, g!context) (.symbol (, g!context))]))))))
(.def (alter on_definition [_ definition])
@@ -156,7 +156,7 @@
(.def .public push
(syntax (_ [g!it ?code.any
- g!context (at ?.monad each code.symbol ?code.global)])
+ g!context (of ?.monad each code.symbol ?code.global)])
(in (list (` (..push' (, g!it) [(, g!context) (.symbol (, g!context))]))))))
(.def .public (revised' ? !)
@@ -200,7 +200,7 @@
(.def .public revised
(syntax (_ [g!predicate ?code.any
g!revision ?code.any
- g!context (at ?.monad each code.symbol ?code.global)])
+ g!context (of ?.monad each code.symbol ?code.global)])
(in (list (` (..revised' (, g!predicate)
(, g!revision)
[(, g!context) (.symbol (, g!context))]))))))
@@ -223,12 +223,12 @@
(list))))))
(.def .public pop
- (syntax (_ [g!context (at ?.monad each code.symbol ?code.global)])
+ (syntax (_ [g!context (of ?.monad each code.symbol ?code.global)])
(in (list (` (..pop'' [(, g!context) (.symbol (, g!context))]))))))
(.def .public def
(syntax (_ [.let [! ?.monad
- ?local (at ! each code.local ?code.local)]
+ ?local (of ! each code.local ?code.local)]
[export_$? $] (?code.tuple (export.with ?code.local))
[export_expression? g!expression] (?code.tuple (export.with ?local))