diff options
Diffstat (limited to 'stdlib/source/lux/compiler/default.lux')
| -rw-r--r-- | stdlib/source/lux/compiler/default.lux | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/stdlib/source/lux/compiler/default.lux b/stdlib/source/lux/compiler/default.lux index 73b018c95..9c7b7868d 100644 --- a/stdlib/source/lux/compiler/default.lux +++ b/stdlib/source/lux/compiler/default.lux @@ -54,8 +54,11 @@ (#error.Error error) (#error.Success [source' output]) - (#error.Success [[bundle (set@ #.source source' compiler)] - output])))) + (let [[cursor _] output] + (#error.Success [[bundle (|> compiler + (set@ #.source source') + (set@ #.cursor cursor))] + output]))))) ## ## (def: (write-module target-dir file-name module-name module artifacts) ## ## (-> File Text Text Module Artifacts (Process Any)) @@ -101,12 +104,7 @@ (<| (phase.timed (name-of ..module-compilation-iteration) "ITERATION") (do phase.Monad<Operation> [code (statement.lift-analysis - (do @ - [code (<| (phase.timed (name-of ..module-compilation-iteration) "syntax") - (..read reader)) - #let [[cursor _] code] - _ (analysis.set-cursor cursor)] - (wrap code))) + (..read reader)) _ (<| (phase.timed (name-of ..module-compilation-iteration) "PHASE") (totalS.phase code))] init.refresh))) |