diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/tool/compiler/default/syntax.lux | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/source/lux/tool/compiler/default/syntax.lux b/stdlib/source/lux/tool/compiler/default/syntax.lux index 16a7b4771..0b938b49a 100644 --- a/stdlib/source/lux/tool/compiler/default/syntax.lux +++ b/stdlib/source/lux/tool/compiler/default/syntax.lux @@ -35,7 +35,7 @@ [data ["." maybe] [number - ["." nat] + ["n" nat] ["." int] ["." rev] ["." frac]] @@ -134,7 +134,7 @@ (def: (input-at start input) (-> Offset Text Text) - (let [end (|> start (n/+ amount-of-input-shown) (n/min ("lux text size" input)))] + (let [end (|> start (!n/+ amount-of-input-shown) (n.min ("lux text size" input)))] (!clip start end input))) (exception: #export (unrecognized-input {[file line column] Cursor} {context Text} {input Text} {offset Offset}) @@ -307,7 +307,7 @@ (text.replace-all ..digit-separator "") (:: <codec> decode)) (#.Right output) - (#.Right [[(update@ #.column (n/+ (!n/- <start> <end>)) where) + (#.Right [[(update@ #.column (|>> (!n/+ (!n/- <start> <end>))) where) <end> source-code] [where (<tag> output)]]) @@ -368,7 +368,7 @@ (recur (!inc g!end)) (!number-output start g!end <codec> <tag>)))))] - [parse-nat nat.decimal #.Nat] + [parse-nat n.decimal #.Nat] [parse-rev rev.decimal #.Rev] ) @@ -379,7 +379,7 @@ (parse-signed offset [where (!inc/2 offset) source-code]) (!parse-full-name offset [where (!inc offset) source-code] where @aliases #.Identifier))))) -(with-expansions [<output> (#.Right [[(update@ #.column (n/+ (!n/- start end)) where) +(with-expansions [<output> (#.Right [[(update@ #.column (|>> (!n/+ (!n/- start end))) where) end source-code] (!clip start end source-code)])] |