From 022ada35548ef5e0e3b9614f9bb96de9d2137ced Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Thu, 10 May 2018 00:04:20 -0400 Subject: - Re-named "Compiler" type to "Lux". --- new-luxc/source/luxc/repl.lux | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'new-luxc/source/luxc/repl.lux') diff --git a/new-luxc/source/luxc/repl.lux b/new-luxc/source/luxc/repl.lux index cdc61ab22..fbf1a336e 100644 --- a/new-luxc/source/luxc/repl.lux +++ b/new-luxc/source/luxc/repl.lux @@ -55,7 +55,7 @@ (def: no-aliases Aliases (dict.new text.Hash)) (def: (initialize source-dirs target-dir console) - (-> (List File) File Console (Task Compiler)) + (-> (List File) File Console (Task Lux)) (do promise.Monad [output (promise.future (do io.Monad @@ -200,7 +200,7 @@ (recur tail variantV))))))))) (def: (tagged-representation compiler representation) - (-> Compiler (Poly Representation) (Poly Representation)) + (-> Lux (Poly Representation) (Poly Representation)) (do p.Monad [[name anonymous] poly.named] (case (macro.run compiler (macro.tags-of name)) @@ -237,7 +237,7 @@ (format "[" tuple-body "]")))))) (def: (representation compiler) - (-> Compiler (Poly Representation)) + (-> Lux (Poly Representation)) (p.rec (function (_ representation) ($_ p.either @@ -263,7 +263,7 @@ )))) (def: (represent compiler type value) - (-> Compiler Type Top Text) + (-> Lux Type Top Text) (case (poly.run type (representation compiler)) (#e.Success representation) (representation value) -- cgit v1.2.3