diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux.lux | 14 | ||||
| -rw-r--r-- | stdlib/source/lux/data/coll/ordered/dict.lux | 5 | ||||
| -rw-r--r-- | stdlib/source/lux/data/text/regex.lux | 4 |
3 files changed, 13 insertions, 10 deletions
diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux index ebac83f40..cdfe0e313 100644 --- a/stdlib/source/lux.lux +++ b/stdlib/source/lux.lux @@ -1031,8 +1031,8 @@ (macro:' #export (comment tokens) (#Cons [(tag$ ["lux" "doc"]) (text$ "## Throws away any code given to it. - ## Great for commenting-out code, while retaining syntax high-lighting and formatting in your text editor. - (comment 1 2 3 4)")] + ## Great for commenting-out code, while retaining syntax high-lighting and formatting in your text editor. + (comment 1 2 3 4)")] #Nil) (return #Nil)) @@ -1309,9 +1309,9 @@ (macro:' #export (-> tokens) (#Cons [(tag$ ["lux" "doc"]) (text$ "## Function types: - (-> Int Int Int) + (-> Int Int Int) - ## This is the type of a function that takes 2 Ints and returns an Int.")] + ## This is the type of a function that takes 2 Ints and returns an Int.")] #Nil) ("lux case" (list/reverse tokens) {(#Cons output inputs) @@ -1327,7 +1327,7 @@ (macro:' #export (list xs) (#Cons [(tag$ ["lux" "doc"]) (text$ "## List-construction macro. - (list 1 2 3)")] + (list 1 2 3)")] #Nil) (return (#Cons (list/fold (function'' [head tail] (form$ (#Cons (tag$ ["lux" "Cons"]) @@ -1340,8 +1340,8 @@ (macro:' #export (list& xs) (#Cons [(tag$ ["lux" "doc"]) (text$ "## List-construction macro, with the last element being a tail-list. - ## In other words, this macro prepends elements to another list. - (list& 1 2 3 (list 4 5 6))")] + ## In other words, this macro prepends elements to another list. + (list& 1 2 3 (list 4 5 6))")] #Nil) ("lux case" (list/reverse xs) {(#Cons last init) diff --git a/stdlib/source/lux/data/coll/ordered/dict.lux b/stdlib/source/lux/data/coll/ordered/dict.lux index b011bc366..3b19c232a 100644 --- a/stdlib/source/lux/data/coll/ordered/dict.lux +++ b/stdlib/source/lux/data/coll/ordered/dict.lux @@ -459,7 +459,10 @@ (#.Some fused) (get@ #right right))))) )) - ))) + ) + + _ + (undefined))) (def: #export (remove key dict) (All [k v] (-> k (Dict k v) (Dict k v))) diff --git a/stdlib/source/lux/data/text/regex.lux b/stdlib/source/lux/data/text/regex.lux index ab85158cf..b7c2e613f 100644 --- a/stdlib/source/lux/data/text/regex.lux +++ b/stdlib/source/lux/data/text/regex.lux @@ -272,14 +272,14 @@ [Int (List Code) (List (List Code))]) (function [part [idx names steps]] (case part - (^or (#e.Error complex) (#e.Success [#Non-Capturing complex])) + (^or (#.Left complex) (#.Right [#Non-Capturing complex])) [idx names (list& (list g!temp complex (' #let) (` [(~ g!total) (:: (~! text.Monoid<Text>) (~' compose) (~ g!total) (~ g!temp))])) steps)] - (#e.Success [(#Capturing [?name num-captures]) scoped]) + (#.Right [(#Capturing [?name num-captures]) scoped]) (let [[idx! name!] (case ?name (#.Some _name) [idx (code.symbol ["" _name])] |