diff options
Diffstat (limited to 'stdlib/source/library/lux/tool/interpreter.lux')
| -rw-r--r-- | stdlib/source/library/lux/tool/interpreter.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/source/library/lux/tool/interpreter.lux b/stdlib/source/library/lux/tool/interpreter.lux index dd6713ff4..eb4ac9de7 100644 --- a/stdlib/source/library/lux/tool/interpreter.lux +++ b/stdlib/source/library/lux/tool/interpreter.lux @@ -163,9 +163,9 @@ (type: (Context anchor expression directive) (Record - {#configuration Configuration + [#configuration Configuration #state (State+ anchor expression directive) - #source Source})) + #source Source])) (with_expansions [<Context> (as_is (Context anchor expression directive))] (def: (read_eval_print context) @@ -201,9 +201,9 @@ (! Any))) (do {! Monad<!>} [state (initialize Monad<!> Console<!> platform configuration)] - (loop [context {#configuration configuration + (loop [context [#configuration configuration #state state - #source ..fresh_source} + #source ..fresh_source] multi_line? #0] (do ! [_ (if multi_line? |