diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/program/licentia/input.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/program/licentia/input.lux b/stdlib/source/program/licentia/input.lux index 6d64515cf..0fb4b5f84 100644 --- a/stdlib/source/program/licentia/input.lux +++ b/stdlib/source/program/licentia/input.lux @@ -10,7 +10,7 @@ [format ["." json (#+ Reader)]] [number - ["." int] + ["i" int] ["f" frac]]]] [// [license (#+ Identification @@ -45,9 +45,9 @@ #let [amountI (f.int amountF)] _ (parser.assert (ex.construct cannot-use-fractional-amount amountF) (f.= amountF - (int.frac amountI))) + (i.frac amountI))) _ (parser.assert (ex.construct cannot-use-negative-amount amountI) - (i/> +0 amountI))] + (i.> +0 amountI))] (wrap (.nat amountI)))) (exception: #export (invalid-period {period (Period Nat)}) |