Extracted Licentia out of the standard library.

1 files changed, 26 insertions, 26 deletions

diff --git a/stdlib/source/program/licentia/license/miscellaneous.lux b/licentia/source/program/licentia/license/miscellaneous.lux
index 03adb1462..0fbc96982 100644
--- a/stdlib/source/program/licentia/license/miscellaneous.lux
+++ b/licentia/source/program/licentia/license/miscellaneous.lux
@@ -8,29 +8,29 @@
    [//
     ["$" document]]])
 
-(def: #export entire-agreement
+(def: #export entire_agreement
   ($.paragraph (list (format _.license " constitutes the entire agreement between the parties with respect to the subject matter hereof"))))
 
-(def: #export relationship-of-parties
-  (let [legal-associations (: (List Text)
+(def: #export relationship_of_parties
+  (let [legal_associations (: (List Text)
                               (list "an agency"
                                     "a partnership"
                                     "a joint venture"
                                     "any other form of legal association"))
-        forms-of-representation (: (List Text)
+        forms_of_representation (: (List Text)
                                    (list "expressly"
                                          "by implication"
                                          "by appearance"
                                          "otherwise"))
-        disclaimer (format _.license " will not be construed as creating " ($.or legal-associations))
+        disclaimer (format _.license " will not be construed as creating " ($.or legal_associations))
         scope (format "between or among " _.recipient
                       ", " _.licensor
                       " or any " _.contributor)
         constraint (format _.recipient
-                           " will not represent to the contrary, whether " ($.or forms-of-representation))]
+                           " will not represent to the contrary, whether " ($.or forms_of_representation))]
     ($.paragraph (list (format disclaimer " " scope ", and " constraint)))))
 
-(def: #export independent-development
+(def: #export independent_development
   (let [actions (: (List Text)
                    (list "acquire"
                          "license"
@@ -53,7 +53,7 @@
                                " that " _.recipient
                                " may " ($.or actions))))))
 
-(def: #export not-waiver
+(def: #export not_waiver
   (let [culprits (format _.licensor " or any " _.contributor)
         duty (format "enforce any provision of " _.license)
         effect "a waiver of future enforcement of that or any other provision"]
@@ -62,45 +62,45 @@
                                " will not be deemed " effect)))))
 
 (def: #export severability
-  (let [on-reformation (format "If any provision of " _.license " is held to be unenforceable, such provision shall be reformed only to the extent necessary to make it enforceable")
-        on-contributor-protection (format "Any law or regulation which provides that the language of a contract shall be construed against the drafter shall not be used to construe " _.license
+  (let [on_reformation (format "If any provision of " _.license " is held to be unenforceable, such provision shall be reformed only to the extent necessary to make it enforceable")
+        on_contributor_protection (format "Any law or regulation which provides that the language of a contract shall be construed against the drafter shall not be used to construe " _.license
                                           " against a " _.contributor)]
-    ($.paragraph (list on-reformation
-                       on-contributor-protection))))
+    ($.paragraph (list on_reformation
+                       on_contributor_protection))))
 
-(def: #export export-restrictions
+(def: #export export_restrictions
   (let [limiter "applicable laws and regulations"
         limited (: (List Text)
                    (list "downloading"
                          "acquiring"
                          "exporting"
                          "reexporting"))
-        on-circumstances (let [limitation (format _.recipient
+        on_circumstances (let [limitation (format _.recipient
                                                   " may be restricted with respect to " ($.or limited))
                                target (format _.work " or any underlying information or technology")]
                            (format limitation " " target " by " limiter))
-        on-acceptance-of-responsibility (let [trigger (format "By " ($.or limited) " " _.work)
+        on_acceptance_of_responsibility (let [trigger (format "By " ($.or limited) " " _.work)
                                               agreement (format _.recipient
                                                                 " is agreeing to be responsible for compliance with all " limiter)]
                                           (format trigger ", " agreement))]
-    ($.paragraph (list on-circumstances
-                       on-acceptance-of-responsibility))))
+    ($.paragraph (list on_circumstances
+                       on_acceptance_of_responsibility))))
 
-(def: #export new-versions
-  (let [on-publishing (let [when ", from time to time,"
+(def: #export new_versions
+  (let [on_publishing (let [when ", from time to time,"
                             what (format "revised versions of " _.license)]
                         (format _.licensor " may publish" when " " what))
-        on-published-version-validity (let [condition (format _.work " has been published under a particular version of " _.license)
+        on_published_version_validity (let [condition (format _.work " has been published under a particular version of " _.license)
                                             effect (format _.recipient " may always continue to use it under the terms of that version")]
                                         (format "Once " condition ", " effect))
-        on-license-upgrading (format _.recipient
+        on_license_upgrading (format _.recipient
                                      " may also choose to use " _.work
                                      " under the terms of any subsequent version of " _.license
                                      " published by " _.licensor)
-        on-licensor-privilege (format "No one other than " _.licensor
+        on_licensor_privilege (format "No one other than " _.licensor
                                       " has the right to modify the terms applicable to " _.work
                                       " created under " _.license)]
-    ($.paragraph (list on-publishing
-                       on-published-version-validity
-                       on-license-upgrading
-                       on-licensor-privilege))))
+    ($.paragraph (list on_publishing
+                       on_published_version_validity
+                       on_license_upgrading
+                       on_licensor_privilege))))