diff options
Diffstat (limited to '')
-rw-r--r-- | licentia/source/program/licentia/license/miscellaneous.lux | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/licentia/source/program/licentia/license/miscellaneous.lux b/licentia/source/program/licentia/license/miscellaneous.lux index 8e5dcf0b3..18041be49 100644 --- a/licentia/source/program/licentia/license/miscellaneous.lux +++ b/licentia/source/program/licentia/license/miscellaneous.lux @@ -9,10 +9,10 @@ [// ["$" document]]]) -(def: .public entire_agreement +(def .public entire_agreement ($.paragraph (list (format _.license " constitutes the entire agreement between the parties with respect to the subject matter hereof")))) -(def: .public relationship_of_parties +(def .public relationship_of_parties (let [legal_associations (is (List Text) (list "an agency" "a partnership" @@ -31,7 +31,7 @@ " will not represent to the contrary, whether " ($.or forms_of_representation))] ($.paragraph (list (format disclaimer " " scope ", and " constraint))))) -(def: .public independent_development +(def .public independent_development (let [actions (is (List Text) (list "acquire" "license" @@ -54,7 +54,7 @@ " that " _.recipient " may " ($.or actions)))))) -(def: .public not_waiver +(def .public 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,14 +62,14 @@ " to " duty " will not be deemed " effect))))) -(def: .public severability +(def .public 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 " against a " _.contributor)] ($.paragraph (list on_reformation on_contributor_protection)))) -(def: .public export_restrictions +(def .public export_restrictions (let [limiter "applicable laws and regulations" limited (is (List Text) (list "downloading" @@ -87,7 +87,7 @@ ($.paragraph (list on_circumstances on_acceptance_of_responsibility)))) -(def: .public new_versions +(def .public new_versions (let [on_publishing (let [when ", from time to time," what (format "revised versions of " _.license)] (format _.licensor " may publish" when " " what)) |