diff options
Diffstat (limited to 'stdlib/source/library/lux/math/logic/fuzzy.lux')
| -rw-r--r-- | stdlib/source/library/lux/math/logic/fuzzy.lux | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/stdlib/source/library/lux/math/logic/fuzzy.lux b/stdlib/source/library/lux/math/logic/fuzzy.lux index 679ebc4a7..79555e858 100644 --- a/stdlib/source/library/lux/math/logic/fuzzy.lux +++ b/stdlib/source/library/lux/math/logic/fuzzy.lux @@ -25,7 +25,7 @@ (def: (each f fb) (|>> f fb))) -(template [<name> <verdict>] +(with_template [<name> <verdict>] [(def: .public <name> Fuzzy (function (_ _) @@ -39,7 +39,7 @@ (All (_ a) (-> (Fuzzy a) a Rev)) (set elem)) -(template [<set_composition> <membership_composition>] +(with_template [<set_composition> <membership_composition>] [(def: .public (<set_composition> left right) (All (_ a) (-> (Fuzzy a) (Fuzzy a) (Fuzzy a))) (function (_ elem) @@ -101,10 +101,11 @@ (..ascending from to) (..descending from to))) -(template: (!sort_2 <low> <high>) - [(if (/.> <low> <high>) - [<low> <high>] - [<high> <low>])]) +(def: !sort_2 + (template (_ <low> <high>) + [(if (/.> <low> <high>) + [<low> <high>] + [<high> <low>])])) (def: .public (triangle bottom middle top) (-> Rev Rev Rev (Fuzzy Rev)) |