diff options
author | Eduardo Julian | 2018-06-15 00:11:33 -0400 |
---|---|---|
committer | Eduardo Julian | 2018-06-15 00:11:33 -0400 |
commit | bcd3d9ee8f6797f758a2abea98d5cb6a74cc7df0 (patch) | |
tree | b122b9ecf2d5333ba97cffbadfeee00eba2e1cf8 /new-luxc/source/luxc/lang.lux | |
parent | 0190e084c6f44be32ea2bc5a89ef55b52bdc789b (diff) |
- WIP: Adjustments to new-luxc based on recent changes to stdlib.
Diffstat (limited to '')
-rw-r--r-- | new-luxc/source/luxc/lang.lux | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/new-luxc/source/luxc/lang.lux b/new-luxc/source/luxc/lang.lux index c4dff15ec..f02af30c5 100644 --- a/new-luxc/source/luxc/lang.lux +++ b/new-luxc/source/luxc/lang.lux @@ -1,17 +1,8 @@ (.module: lux - (lux (control [monad #+ do] - ["ex" exception #+ exception:]) - (data [maybe] - [product] - ["e" error] - [text "text/" Eq<Text>] - text/format - (coll [list])) - [macro] - (macro ["s" syntax #+ syntax:]) - (lang (type ["tc" check]))) - (luxc (lang ["la" analysis]))) + (lux (data [maybe] + [text] + text/format))) (def: (normalize-char char) (-> Nat Text) @@ -42,12 +33,12 @@ _ (text.from-code char))) -(def: underflow Nat (n/dec +0)) +(def: underflow Nat (dec +0)) (def: #export (normalize-name name) (-> Text Text) - (loop [idx (n/dec (text.size name)) + (loop [idx (dec (text.size name)) output ""] (if (n/= underflow idx) output - (recur (n/dec idx) (format (|> (text.nth idx name) maybe.assume normalize-char) output))))) + (recur (dec idx) (format (|> (text.nth idx name) maybe.assume normalize-char) output))))) |