diff options
Diffstat (limited to 'stdlib/source/program/licentia/output.lux')
-rw-r--r-- | stdlib/source/program/licentia/output.lux | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/stdlib/source/program/licentia/output.lux b/stdlib/source/program/licentia/output.lux index 29d61dd42..43080697e 100644 --- a/stdlib/source/program/licentia/output.lux +++ b/stdlib/source/program/licentia/output.lux @@ -43,7 +43,7 @@ (def: #export (grant termination) (-> Termination Text) - (`` (format (~~ (do-template [<title> <content>] + (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> #$.content <content>}))] @@ -65,7 +65,7 @@ (def: #export limitation Text - (`` (format (~~ (do-template [<title> <content>] + (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> #$.content <content>}))] @@ -80,7 +80,7 @@ (def: #export assurance Text - (`` (format (~~ (do-template [<title> <content>] + (`` (format (~~ (template [<title> <content>] [($.block ($.section {#$.title <title> #$.content <content>}))] @@ -92,7 +92,7 @@ (def: #export (liability value) (-> Liability Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -120,7 +120,7 @@ (def: #export (distribution distribution) (-> Distribution Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -141,7 +141,7 @@ (def: #export (commercial value) (-> Commercial Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -168,7 +168,7 @@ #.None [false ""])] - (`` (format (~~ (do-template [<condition> <title> <content>] + (`` (format (~~ (template [<condition> <title> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) @@ -210,7 +210,7 @@ (def: #export (miscellaneous identified?) (-> Bit Text) - (`` (format (~~ (do-template [<title> <condition> <content>] + (`` (format (~~ (template [<title> <condition> <content>] [(if <condition> ($.block ($.section {#$.title <title> #$.content <content>})) |