From b71b861008381626633bf28b033cd866d7e4e0b7 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Thu, 20 Jun 2019 22:32:59 -0400
Subject: Improved the convention for using text formatters.

---
 stdlib/source/program/licentia/license/grant.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/licentia/license/grant.lux')

diff --git a/stdlib/source/program/licentia/license/grant.lux b/stdlib/source/program/licentia/license/grant.lux
index 1725755b7..0f45f3592 100644
--- a/stdlib/source/program/licentia/license/grant.lux
+++ b/stdlib/source/program/licentia/license/grant.lux
@@ -2,7 +2,7 @@
   [lux #*
    [data
     ["." text
-     format]]]
+     ["%" format (#+ format)]]]]
   [//
    [time (#+ Days)]
    ["_" term]
@@ -83,7 +83,7 @@
                                        " explicitly and finally terminates the grants to " _.recipient)
         complaint-period-condition (format "such " _.contributor
                                            " fails to notify " _.recipient
-                                           " of the non-compliance by some reasonable means prior to " (%n termination-period)
+                                           " of the non-compliance by some reasonable means prior to " (%.nat termination-period)
                                            " " ($.plural "day") " after " _.recipient
                                            " has come back into compliance")]
     (format "However, if " restoration-condition ", then " restored-grants " are reinstated provisionally"
@@ -100,7 +100,7 @@
                                                                      " has received notice of non-compliance with " _.license
                                                                      " from such " _.contributor)
                                                prompt-compliance (format _.recipient
-                                                                         " becomes compliant prior to " (%n grace-period)
+                                                                         " becomes compliant prior to " (%.nat grace-period)
                                                                          " " ($.plural "day") " after reception of the notice")]
                                            ($.and (list notification
                                                         first-offense
-- 
cgit v1.2.3