From abe24425ced15fd784ef6c62d6f186af72b491db Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 11 Jul 2021 01:51:04 -0400
Subject: Re-named ":coerce" to ":as" since it technically doesn't do
 coercions.

---
 stdlib/source/program/aedifex/command/build.lux   | 4 ++--
 stdlib/source/program/aedifex/command/deps.lux    | 4 +++-
 stdlib/source/program/aedifex/command/install.lux | 1 -
 stdlib/source/program/aedifex/command/test.lux    | 2 +-
 4 files changed, 6 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/program/aedifex/command')

diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 572ebf0f0..ea2637d54 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -174,8 +174,8 @@
         (#.Some program_module)
         (do promise.monad
           [environment (program.environment promise.monad program)
-           home (\ program home [])
-           working_directory (\ program directory [])]
+           #let [home (\ program home)
+                 working_directory (\ program directory)]]
           (do ///action.monad
             [[resolution compiler] (promise\wrap (..compiler resolution))
              #let [[[command compiler_params] output] (case compiler
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index e4881986b..416544e01 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -39,7 +39,9 @@
 (def: #export (do! console local remotes new_repository profile)
   (-> (Console Promise) (Repository Promise) (List (Repository Promise)) (-> URL (Repository Promise)) (Command Resolution))
   (do promise.monad
-    [#let [dependencies (set.to_list (get@ #///.dependencies profile))]
+    [#let [dependencies (|> (get@ #///.dependencies profile)
+                            set.to_list
+                            (#.Cons (get@ #///.compiler profile)))]
      [local_successes local_failures cache] (///dependency/resolution.all console
                                                                           (list local)
                                                                           new_repository
diff --git a/stdlib/source/program/aedifex/command/install.lux b/stdlib/source/program/aedifex/command/install.lux
index 64830c4d2..39bdea8b2 100644
--- a/stdlib/source/program/aedifex/command/install.lux
+++ b/stdlib/source/program/aedifex/command/install.lux
@@ -10,7 +10,6 @@
    [data
     [binary (#+ Binary)]
     [text
-     ["%" format (#+ format)]
      [encoding
       ["." utf8]]]
     [collection
diff --git a/stdlib/source/program/aedifex/command/test.lux b/stdlib/source/program/aedifex/command/test.lux
index e8b5a2a23..9ac6b9c10 100644
--- a/stdlib/source/program/aedifex/command/test.lux
+++ b/stdlib/source/program/aedifex/command/test.lux
@@ -34,7 +34,7 @@
   (-> (Console Promise) (Program Promise) (file.System Promise) (Shell Promise) Resolution (Command Any))
   (do promise.monad
     [environment (program.environment promise.monad program)
-     working_directory (\ program directory [])]
+     #let [working_directory (\ program directory)]]
     (do ///action.monad
       [[compiler program] (//build.do! console program fs shell resolution
                                        (set@ #///.program (get@ #///.test profile) profile))
-- 
cgit v1.2.3