From 17629d66062b88b040a2397032f6c08361a5f3a7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 12 Aug 2021 03:12:42 -0400
Subject: Improved binding syntax for "syntax:".

---
 stdlib/source/program/aedifex/command/auto.lux  | 4 ++--
 stdlib/source/program/aedifex/command/build.lux | 8 ++++----
 stdlib/source/program/aedifex/command/deps.lux  | 2 +-
 3 files changed, 7 insertions(+), 7 deletions(-)

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

diff --git a/stdlib/source/program/aedifex/command/auto.lux b/stdlib/source/program/aedifex/command/auto.lux
index 579f68462..805ffb1ba 100644
--- a/stdlib/source/program/aedifex/command/auto.lux
+++ b/stdlib/source/program/aedifex/command/auto.lux
@@ -33,7 +33,7 @@
         (\ ! map (|>> (try.else (list))
                       (monad.map ! (targets fs))))
         (\ ! join)
-        (\ ! map (|>> list.concat (list& path))))))
+        (\ ! map (|>> list.joined (list& path))))))
 
 (def: .public delay
   Nat
@@ -56,7 +56,7 @@
                        (get@ #///.sources)
                        set.list
                        (monad.map ! (..targets fs))
-                       (\ ! map list.concat))]
+                       (\ ! map list.joined))]
           (do {! ///action.monad}
             [_ (monad.map ! (\ watcher start watch.modification) targets)
              _ <call>]
diff --git a/stdlib/source/program/aedifex/command/build.lux b/stdlib/source/program/aedifex/command/build.lux
index 58df179e2..e14eee20f 100644
--- a/stdlib/source/program/aedifex/command/build.lux
+++ b/stdlib/source/program/aedifex/command/build.lux
@@ -167,11 +167,11 @@
                       (case (dictionary.get identity uniques)
                         (#.Some [current_version current_path])
                         (if (\ version_order < version current_version)
-                          (dictionary.put identity [version dependency] uniques)
+                          (dictionary.has identity [version dependency] uniques)
                           uniques)
                         
                         #.None
-                        (dictionary.put identity [version dependency] uniques))))
+                        (dictionary.has identity [version dependency] uniques))))
                   (: (Dictionary [Group Name] [Version Dependency])
                      (dictionary.empty (product.hash text.hash text.hash))))
        dictionary.values
@@ -183,7 +183,7 @@
 
 (def: (plural name)
   (-> Text (List Text) (List Text))
-  (|>> (list\map (|>> (list name))) list.concat))
+  (|>> (list\map (|>> (list name))) list.joined))
 
 (def: .public start "[BUILD STARTED]")
 (def: .public success "[BUILD ENDED]")
@@ -294,7 +294,7 @@
                    / (\ fs separator)
                    cache_directory (format working_directory / target)]
              _ (console.write_line ..start console)
-             .let [full_parameters (list.concat (list compiler_params
+             .let [full_parameters (list.joined (list compiler_params
                                                       (list "build")
                                                       (..plural "--library" (..libraries fs home resolution))
                                                       (..plural "--host_dependency" host_dependencies)
diff --git a/stdlib/source/program/aedifex/command/deps.lux b/stdlib/source/program/aedifex/command/deps.lux
index 185bd6229..3cbb82403 100644
--- a/stdlib/source/program/aedifex/command/deps.lux
+++ b/stdlib/source/program/aedifex/command/deps.lux
@@ -55,7 +55,7 @@
                                                                                  cache)]
     (do ///action.monad
       [cached (|> (dictionary.keys cache)
-                  (list\fold dictionary.remove resolution)
+                  (list\fold dictionary.lacks resolution)
                   (///dependency/deployment.all local))
        _ (console.write_line (exception.report
                               ["Local successes" (|> local_successes
-- 
cgit v1.2.3