diff options
Diffstat (limited to 'stdlib/source/lux/platform/compiler/default')
| -rw-r--r-- | stdlib/source/lux/platform/compiler/default/init.lux | 8 | ||||
| -rw-r--r-- | stdlib/source/lux/platform/compiler/default/platform.lux | 12 | ||||
| -rw-r--r-- | stdlib/source/lux/platform/compiler/default/syntax.lux | 44 |
3 files changed, 32 insertions, 32 deletions
diff --git a/stdlib/source/lux/platform/compiler/default/init.lux b/stdlib/source/lux/platform/compiler/default/init.lux index 699ddfb54..012ab3ea9 100644 --- a/stdlib/source/lux/platform/compiler/default/init.lux +++ b/stdlib/source/lux/platform/compiler/default/init.lux @@ -98,8 +98,8 @@ (-> Reader (analysis.Operation Code)) (function (_ [bundle compiler]) (case (reader (get@ #.source compiler)) - (#error.Error error) - (#error.Error error) + (#error.Failure error) + (#error.Failure error) (#error.Success [source' output]) (let [[cursor _] output] @@ -144,10 +144,10 @@ (#error.Success [state' output]) (recur state') - (#error.Error error) + (#error.Failure error) (if (ex.match? syntax.end-of-file error) (#error.Success [state []]) - (ex.with-stack ///.cannot-compile module (#error.Error error)))))))) + (ex.with-stack ///.cannot-compile module (#error.Failure error)))))))) (def: (compile hash input) (-> Nat ///.Input <Operation>) diff --git a/stdlib/source/lux/platform/compiler/default/platform.lux b/stdlib/source/lux/platform/compiler/default/platform.lux index 9a169fb15..10dfd6ebb 100644 --- a/stdlib/source/lux/platform/compiler/default/platform.lux +++ b/stdlib/source/lux/platform/compiler/default/platform.lux @@ -73,7 +73,7 @@ ## (wrap (|> state ## (set@ [#.info #.mode] #.Build)))) - ## (#error.Error error) + ## (#error.Failure error) ## (io.fail error)) ) @@ -88,8 +88,8 @@ ## _ (write-module target-dir file-name (get@ #cli.module configuration) module outputs) ] ## (case (compiler input) - ## (#error.Error error) - ## (:: (get@ #file-system platform) lift (#error.Error error)) + ## (#error.Failure error) + ## (:: (get@ #file-system platform) lift (#error.Failure error)) ## (#error.Success)) (let [compiler (init.compiler syntax.prelude state) @@ -99,11 +99,11 @@ (#error.Success more|done) (case more|done (#.Left more) - (:: (get@ #file-system platform) lift (#error.Error "NOT DONE!")) + (:: (get@ #file-system platform) lift (#error.Failure "NOT DONE!")) (#.Right done) (wrap [])) - (#error.Error error) - (:: (get@ #file-system platform) lift (#error.Error error)))))) + (#error.Failure error) + (:: (get@ #file-system platform) lift (#error.Failure error)))))) ) diff --git a/stdlib/source/lux/platform/compiler/default/syntax.lux b/stdlib/source/lux/platform/compiler/default/syntax.lux index 5e1990393..a1bb9f3ea 100644 --- a/stdlib/source/lux/platform/compiler/default/syntax.lux +++ b/stdlib/source/lux/platform/compiler/default/syntax.lux @@ -187,15 +187,15 @@ (#error.Success [source' top]) (recur source' (#.Cons top stack)) - (#error.Error error) + (#error.Failure error) (let [[where offset _] source] (case (read-close (char <close>) source-code//size source-code offset) (#error.Success offset') (#error.Success [[(update@ #.column inc where) offset' source-code] [where (<tag> (list.reverse stack))]]) - (#error.Error error) - (#error.Error error)))))))] + (#error.Failure error) + (#error.Failure error)))))))] ## Form and tuple syntax is mostly the same, differing only in the ## delimiters involved. @@ -216,19 +216,19 @@ (#error.Success [sourceFV value]) (recur sourceFV (#.Cons [field value] stack)) - (#error.Error error) - (#error.Error error)) + (#error.Failure error) + (#error.Failure error)) - (#error.Error error) + (#error.Failure error) (let [[where offset _] source] - (<| (!with-char+ source-code//size source-code offset closing-char (#error.Error error)) + (<| (!with-char+ source-code//size source-code offset closing-char (#error.Failure error)) (case (read-close (`` (char (~~ (static ..close-record)))) source-code//size source-code offset) (#error.Success offset') (#error.Success [[(update@ #.column inc where) offset' source-code] [where (#.Record (list.reverse stack))]]) - (#error.Error error) - (#error.Error error)))))))) + (#error.Failure error) + (#error.Failure error)))))))) (template: (!guarantee-no-new-lines content body) (case ("lux text index" content (static text.new-line) 0) @@ -297,8 +297,8 @@ source-code] [where (<tag> output)]]) - (#error.Error error) - (#error.Error error))) + (#error.Failure error) + (#error.Failure error))) (def: no-exponent Offset 0) @@ -382,7 +382,7 @@ (with-expansions [<end-of-file> (ex.throw end-of-file current-module) <failure> (ex.throw unrecognized-input [where "General" source-code offset/0]) - <close!> (#error.Error close-signal) + <close!> (#error.Failure close-signal) <consume-1> (as-is [where (!inc offset/0) source-code]) <consume-2> (as-is [where (!inc/2 offset/0) source-code])] @@ -392,8 +392,8 @@ (#error.Success [source' name]) (#error.Success [source' [@module name]]) - (#error.Error error) - (#error.Error error)) + (#error.Failure error) + (#error.Failure error)) ## else <failure>)) @@ -412,8 +412,8 @@ (#error.Success [source' name]) (#error.Success [source' [@where (@tag name)]]) - (#error.Error error) - (#error.Error error))) + (#error.Failure error) + (#error.Failure error))) (with-expansions [<simple> (as-is (#error.Success [source' ["" simple]]))] (`` (def: (parse-full-name start source) @@ -428,20 +428,20 @@ (#error.Success [source'' complex]) (#error.Success [source'' [simple complex]]) - (#error.Error error) - (#error.Error error))) + (#error.Failure error) + (#error.Failure error))) <simple>))) - (#error.Error error) - (#error.Error error))))) + (#error.Failure error) + (#error.Failure error))))) (template: (!parse-full-name @offset @source @where @tag) (case (..parse-full-name @offset @source) (#error.Success [source' full-name]) (#error.Success [source' [@where (@tag full-name)]]) - (#error.Error error) - (#error.Error error))) + (#error.Failure error) + (#error.Failure error))) (`` (template: (<<closers>>) [(~~ (static ..close-form)) |