diff options
| author | Eduardo Julian | 2017-05-17 20:23:02 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-05-17 20:23:02 -0400 |
| commit | 8bd1d1b3a4750b26f1540717839c1aa196f2a520 (patch) | |
| tree | cc9d595998c3bf4d15e434480f5505fd491e39b0 /new-luxc/source/luxc/parser.lux | |
| parent | 824482b2e8b13e42a524a5e4945ea3e172395c9e (diff) | |
- Renamed "Error" to "Result".
Diffstat (limited to 'new-luxc/source/luxc/parser.lux')
| -rw-r--r-- | new-luxc/source/luxc/parser.lux | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/new-luxc/source/luxc/parser.lux b/new-luxc/source/luxc/parser.lux index d76050860..5cd6299fc 100644 --- a/new-luxc/source/luxc/parser.lux +++ b/new-luxc/source/luxc/parser.lux @@ -31,7 +31,7 @@ (data [bool] [char] [text] - ["E" error #*] + ["R" result] [number] (text ["l" lexer #+ Lexer Monad<Lexer> "l/" Monad<Lexer>] format) @@ -549,10 +549,10 @@ ))) (def: #export (parse [where code]) - (-> [Cursor Text] (Error [[Cursor Text] Code])) + (-> [Cursor Text] (R;Result [[Cursor Text] Code])) (case (l;run' code (parse-ast where)) - (#E;Error error) - (#E;Error error) + (#R;Error error) + (#R;Error error) - (#E;Success [remaining [where' output]]) - (#E;Success [[where' remaining] output]))) + (#R;Success [remaining [where' output]]) + (#R;Success [[where' remaining] output]))) |