diff options
Diffstat (limited to 'lux-bootstrapper/src/lux/base.clj')
| -rw-r--r-- | lux-bootstrapper/src/lux/base.clj | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lux-bootstrapper/src/lux/base.clj b/lux-bootstrapper/src/lux/base.clj index b19bb4fae..41cf66a0f 100644 --- a/lux-bootstrapper/src/lux/base.clj +++ b/lux-bootstrapper/src/lux/base.clj @@ -966,6 +966,16 @@ _ output)))) +(defn without-scope [body] + (fn [state] + (|case (body (set$ $scopes (|list (env "WITHOUT-SCOPE" "")) state)) + ($Right state* datum) + (return* (set$ $scopes (get$ $scopes state) state*) + datum) + + output + output))) + (defn run-state [monad state] (monad state)) |