diff options
author | Eduardo Julian | 2019-03-30 21:45:45 -0400 |
---|---|---|
committer | Eduardo Julian | 2019-03-30 21:45:45 -0400 |
commit | 118895081d97279a796cc704e6c23bf92ed79e5e (patch) | |
tree | 1ea654e3f913bfc5f978bba46620c535e7a4a7bc /stdlib/source/lux/data/number/ratio.lux | |
parent | 5009bfaa56119a58e675a1e6008623790b54cc1c (diff) |
Re-named "do-template" to "template".
Diffstat (limited to '')
-rw-r--r-- | stdlib/source/lux/data/number/ratio.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/data/number/ratio.lux b/stdlib/source/lux/data/number/ratio.lux index 9c7baaab8..49ce1f194 100644 --- a/stdlib/source/lux/data/number/ratio.lux +++ b/stdlib/source/lux/data/number/ratio.lux @@ -48,7 +48,7 @@ (`` (structure: #export order (Order Ratio) (def: &equivalence ..equivalence) - (~~ (do-template [<name> <op>] + (~~ (template [<name> <op>] [(def: (<name> parameter subject) (let [[parameter' subject'] (..equalize parameter subject)] (<op> parameter' subject')))] @@ -60,7 +60,7 @@ )) )) -(do-template [<name> <comp>] +(template [<name> <comp>] [(def: #export (<name> left right) (-> Ratio Ratio Ratio) (if (:: ..order <comp> left right) @@ -142,7 +142,7 @@ #..denominator (~ (maybe.default (' 1) ?denominator))}))))) -(do-template [<identity> <compose> <name>] +(template [<identity> <compose> <name>] [(structure: #export <name> (Monoid Ratio) |