diff options
Diffstat (limited to 'stdlib/source/lux/platform/compiler/default/syntax.lux')
| -rw-r--r-- | stdlib/source/lux/platform/compiler/default/syntax.lux | 44 |
1 files changed, 22 insertions, 22 deletions
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)) |