From cfa0a075b89a0df4618e7009f05c157393cbba72 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 1 Dec 2020 09:27:58 -0400
Subject: Added specialized root/2 and root/3 functions in lux/math.

---
 stdlib/source/program/licentia/license/black-list.lux   | 8 ++++----
 stdlib/source/program/licentia/license/commercial.lux   | 4 +---
 stdlib/source/program/licentia/license/distribution.lux | 4 ++--
 stdlib/source/program/licentia/license/extension.lux    | 4 +---
 stdlib/source/program/licentia/license/notice.lux       | 4 ++--
 5 files changed, 10 insertions(+), 14 deletions(-)

(limited to 'stdlib/source/program/licentia/license')

diff --git a/stdlib/source/program/licentia/license/black-list.lux b/stdlib/source/program/licentia/license/black-list.lux
index a71ceda9c..14dcdfe91 100644
--- a/stdlib/source/program/licentia/license/black-list.lux
+++ b/stdlib/source/program/licentia/license/black-list.lux
@@ -1,11 +1,11 @@
 (.module:
   [lux #*
    [data
-    ["." maybe ("#;." functor)]
+    ["." maybe ("#\." functor)]
     ["." text
      ["%" format (#+ format)]]
     [collection
-     ["." list ("#;." functor)]]]]
+     ["." list ("#\." functor)]]]]
   ["." // (#+ Entity Black-List)
    ["_" term]
    [//
@@ -21,11 +21,11 @@
         effect "shall not be granted to the following entities, or any subsidiary thereof"
         justification (|> black-list
                           (get@ #//.justification)
-                          (maybe;map (|>> (format ", due to ")))
+                          (maybe\map (|>> (format ", due to ")))
                           (maybe.default ""))
         entities (|> black-list
                      (get@ #//.entities)
-                     (list;map ..entity)
+                     (list\map ..entity)
                      (text.join-with text.new-line))]
     (format scope " " effect justification ":" text.new-line
             entities)))
diff --git a/stdlib/source/program/licentia/license/commercial.lux b/stdlib/source/program/licentia/license/commercial.lux
index f05bcf470..05b8c3966 100644
--- a/stdlib/source/program/licentia/license/commercial.lux
+++ b/stdlib/source/program/licentia/license/commercial.lux
@@ -2,9 +2,7 @@
   [lux #*
    [data
     ["." text
-     ["%" format (#+ format)]]
-    [collection
-     ["." list ("#;." monoid)]]]]
+     ["%" format (#+ format)]]]]
   ["." // (#+ Commercial)
    ["_" term]
    [//
diff --git a/stdlib/source/program/licentia/license/distribution.lux b/stdlib/source/program/licentia/license/distribution.lux
index 58eaab22d..f911623a0 100644
--- a/stdlib/source/program/licentia/license/distribution.lux
+++ b/stdlib/source/program/licentia/license/distribution.lux
@@ -4,7 +4,7 @@
     ["." text
      ["%" format (#+ format)]]
     [collection
-     ["." list ("#;." monoid)]]]]
+     ["." list ("#\." monoid)]]]]
   ["." // (#+ Distribution)
    ["_" term]
    [//
@@ -103,7 +103,7 @@
 
 (def: #export (extension distribution)
   (-> Distribution Text)
-  ($.paragraph ($_ list;compose
+  ($.paragraph ($_ list\compose
                    (if (get@ #//.can-re-license? distribution)
                      (list allow-re-licensing)
                      (list))
diff --git a/stdlib/source/program/licentia/license/extension.lux b/stdlib/source/program/licentia/license/extension.lux
index 68b5f6669..f808a8913 100644
--- a/stdlib/source/program/licentia/license/extension.lux
+++ b/stdlib/source/program/licentia/license/extension.lux
@@ -2,9 +2,7 @@
   [lux #*
    [data
     ["." text
-     ["%" format (#+ format)]]
-    [collection
-     ["." list ("#;." monoid)]]]]
+     ["%" format (#+ format)]]]]
   ["." // (#+ Extension)
    ["_" term]
    ["." grant]
diff --git a/stdlib/source/program/licentia/license/notice.lux b/stdlib/source/program/licentia/license/notice.lux
index d4df7d166..219af97f4 100644
--- a/stdlib/source/program/licentia/license/notice.lux
+++ b/stdlib/source/program/licentia/license/notice.lux
@@ -6,7 +6,7 @@
     ["." text
      ["%" format (#+ format)]]
     [collection
-     ["." list ("#;." functor)]]]]
+     ["." list ("#\." functor)]]]]
   ["." // #_
    ["#." time]
    ["#." copyright]
@@ -28,5 +28,5 @@
 
 (def: #export copyright
   (-> (List //copyright.Holder) Text)
-  (|>> (list;map ..copyright-holder)
+  (|>> (list\map ..copyright-holder)
        (text.join-with text.new-line)))
-- 
cgit v1.2.3