diff options
Diffstat (limited to '')
| -rw-r--r-- | new-luxc/source/luxc/repl.lux | 21 |
1 files changed, 13 insertions, 8 deletions
diff --git a/new-luxc/source/luxc/repl.lux b/new-luxc/source/luxc/repl.lux index 99d635975..918c5c076 100644 --- a/new-luxc/source/luxc/repl.lux +++ b/new-luxc/source/luxc/repl.lux @@ -42,8 +42,13 @@ [".E" translation] [".E" statement])))) -(exception: #export REPL-Initialization-Failed) -(exception: #export REPL-Error) +(do-template [<name>] + [(exception: #export (<name> {message Text}) + message)] + + [REPL-Initialization-Failed] + [REPL-Error] + ) (def: repl-module "<REPL>") @@ -91,7 +96,7 @@ (def: (represent-together representations values) (-> (List Representation) (List Top) (List Text)) (|> (list.zip2 representations values) - (list/map (function [[representation value]] (representation value))))) + (list/map (function (_ [representation value]) (representation value))))) (def: primitive-representation (Poly Representation) @@ -150,7 +155,7 @@ [membersR+ (poly.tuple (p.many representation)) _ (p.assert "Number of tags does not match record type size." (n/= (list.size tags) (list.size membersR+)))] - (wrap (function [recordV] + (wrap (function (_ recordV) (let [record-body (loop [pairs-left (list.zip2 tags membersR+) recordV recordV] (case pairs-left @@ -173,7 +178,7 @@ #let [num-tags (list.size tags)] _ (p.assert "Number of tags does not match variant type size." (n/= num-tags (list.size casesR+)))] - (wrap (function [variantV] + (wrap (function (_ variantV) (loop [cases-left (list.zip3 tags (list.n/range +0 (n/dec num-tags)) casesR+) @@ -216,7 +221,7 @@ (-> (Poly Representation) (Poly Representation)) (do p.Monad<Parser> [membersR+ (poly.tuple (p.many representation))] - (wrap (function [tupleV] + (wrap (function (_ tupleV) (let [tuple-body (loop [representations membersR+ tupleV tupleV] (case representations @@ -234,7 +239,7 @@ (def: (representation compiler) (-> Compiler (Poly Representation)) (p.rec - (function [representation] + (function (_ representation) ($_ p.either primitive-representation (special-representation representation) @@ -268,7 +273,7 @@ (def: (repl-translate source-dirs target-dir code) (-> (List File) File Code (Meta [Type Top])) - (function [compiler] + (function (_ compiler) (case ((translationL.translate (translationL.translate-module source-dirs target-dir) no-aliases code) |