Fixes lambda functions not always working.

1 files changed, 10 insertions, 6 deletions

diff --git a/data/unit-testing/fold.fate b/data/unit-testing/fold.fate
index 7148aa2..ec3fa8a 100644
--- a/data/unit-testing/fold.fate
+++ b/data/unit-testing/fold.fate
@@ -53,12 +53,14 @@
 
 (set! 10to0_1
    (list:foldr
-      (lambda (((list int) res) (int e) (int mod))
-         (list:add (- e mod) res)
+      (partial
+         (lambda ((int mod) ((list int) res) (int e))
+            (list:add (- e mod) res)
+         )
+         10
       )
       (default (list int))
       (list:range 10 20 1)
-      10
    )
 )
 
@@ -143,12 +145,14 @@
 
 (set! 10to20_1
    (list:foldl
-      (lambda (((list int) res) (int e) (int mod))
-         (list:add (- e mod) res)
+      (partial
+         (lambda ((int mod) ((list int) res) (int e))
+            (list:add (- e mod) res)
+         )
+         10
       )
       (default (list int))
       (list:range 20 30 1)
-      10
    )
 )