diff options
| author | Eduardo Julian | 2022-03-16 08:37:23 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2022-03-16 08:37:23 -0400 |
| commit | bf53ee92fc3c33a4885aa227e55d24f7ba3cb2c4 (patch) | |
| tree | 49683a62ae8e110c62b42a9a6386bb2ddb3c47c6 /licentia/source/program/licentia/license/liability.lux | |
| parent | d710d9f4fc098e7c243c8a5f23cd42683f13e07f (diff) | |
De-sigil-ification: prefix :
Diffstat (limited to 'licentia/source/program/licentia/license/liability.lux')
| -rw-r--r-- | licentia/source/program/licentia/license/liability.lux | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/licentia/source/program/licentia/license/liability.lux b/licentia/source/program/licentia/license/liability.lux index 6f4c82c6b..b6801b900 100644 --- a/licentia/source/program/licentia/license/liability.lux +++ b/licentia/source/program/licentia/license/liability.lux @@ -1,13 +1,13 @@ (.using - [library - [lux "*" - [data - ["[0]" text - ["%" format {"+" format}]]]]] + [library + [lux "*" + [data + ["[0]" text + ["%" format {"+" format}]]]]] + [// + ["_" term] [// - ["_" term] - [// - ["$" document]]]) + ["$" document]]]) (def: warranty_communications (List Text) @@ -115,13 +115,13 @@ on_responsibility (let [but "However, in accepting such obligations" cannot_represent_a_contributor (format _.recipient " may not act on behalf of any other " _.contributor) can_only_represent_oneself (format "only on behalf and on sole responsibility of " _.recipient) - each_contributor (: (-> Text Text) - (function (_ responsibility) - (format responsibility " each " _.contributor))) - responsibilities (: (List Text) - (list (each_contributor "indemnify") - (each_contributor "defend") - (format (each_contributor "hold") " harmless"))) + each_contributor (is (-> Text Text) + (function (_ responsibility) + (format responsibility " each " _.contributor))) + responsibilities (is (List Text) + (list (each_contributor "indemnify") + (each_contributor "defend") + (format (each_contributor "hold") " harmless"))) full_responsibility_condition (format "and only if " _.recipient " agrees to " ($.and responsibilities) " for any liability incurred by, or claims asserted against, such " _.contributor @@ -131,22 +131,22 @@ on_responsibility)))) (def: .public disclaim_high_risk - (let [on_work (let [intentions (: (List Text) - (list "designed" - "manufactured" - "intended for use or distribution")) - hazardous_environments (: (List Text) - (list "nuclear facilities" - "aircraft navigation" - "communications systems" - "air traffic control" - "direct life support machines" - "weapons systems")) - consequences (: (List Text) - (list "death" - "personal injury" - "severe physical damage" - "environmental damage")) + (let [on_work (let [intentions (is (List Text) + (list "designed" + "manufactured" + "intended for use or distribution")) + hazardous_environments (is (List Text) + (list "nuclear facilities" + "aircraft navigation" + "communications systems" + "air traffic control" + "direct life support machines" + "weapons systems")) + consequences (is (List Text) + (list "death" + "personal injury" + "severe physical damage" + "environmental damage")) disclaim (format _.licensed_work " is not fault tolerant" ", and is not " ($.or intentions) " as on-line control equipment in hazardous environments requiring fail-safe performance") |