diff options
author | Eduardo Julian | 2021-06-14 18:33:54 -0400 |
---|---|---|
committer | Eduardo Julian | 2021-06-14 18:33:54 -0400 |
commit | 519c0c0c71cdf7ce3dfc64b9781ab826760b3d94 (patch) | |
tree | 75fa0672afceff129e5e75afb7a5fed197ce1773 /stdlib/source/program/licentia/license/limitation.lux | |
parent | af3e6e2cb011dc2ad9204440990731a2f272716d (diff) |
Extracted Licentia out of the standard library.
Diffstat (limited to '')
-rw-r--r-- | licentia/source/program/licentia/license/limitation.lux (renamed from stdlib/source/program/licentia/license/limitation.lux) | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/stdlib/source/program/licentia/license/limitation.lux b/licentia/source/program/licentia/license/limitation.lux index 1617d9909..046e60a55 100644 --- a/stdlib/source/program/licentia/license/limitation.lux +++ b/licentia/source/program/licentia/license/limitation.lux @@ -26,25 +26,25 @@ " permission to " ($.or abilities)) warning (format "These actions are prohibited by law if " _.recipient " does not accept " _.license) - implicit-acceptance (let [activation-condition "by performing any of these actions" + implicit_acceptance (let [activation_condition "by performing any of these actions" acceptance (format _.recipient " indicates that " _.recipient " accepts " _.license) agreement (format _.recipient " agrees to be bound by all its terms and conditions")] - (format "Therefore, " activation-condition ", " ($.and (list acceptance agreement)))) - prohibition-due-to-non-agreement (format "If " _.recipient + (format "Therefore, " activation_condition ", " ($.and (list acceptance agreement)))) + prohibition_due_to_non_agreement (format "If " _.recipient " does not agree with all the terms and conditions of " _.license ", " _.recipient " can not " ($.or abilities)) - prohibition-due-to-impossibility (format "If it is impossible for " _.recipient + prohibition_due_to_impossibility (format "If it is impossible for " _.recipient " to comply with all the terms and conditions of " _.license ", then " _.recipient " can not " ($.or abilities))] ($.paragraph (list acknowledgement limitation warning - implicit-acceptance - prohibition-due-to-non-agreement - prohibition-due-to-impossibility)))) + implicit_acceptance + prohibition_due_to_non_agreement + prohibition_due_to_impossibility)))) (def: #export grant ($.paragraph (list (format "The licenses granted in this document are the only rights granted under " _.license) @@ -68,8 +68,8 @@ "; except as required for reasonable and customary use in describing the origin of " _.work)))) -(def: #export secondary-licenses +(def: #export secondary_licenses ($.paragraph (list (format "No " _.contributor " makes additional grants as a result of a choice by " _.recipient " to distribute " _.work - " under a under the terms of a " _.secondary-license)))) + " under a under the terms of a " _.secondary_license)))) |