From 4b86ef77955f5bb4f134252c15ef30fd51a243c3 Mon Sep 17 00:00:00 2001 From: Nathanael Sensfelder Date: Sun, 24 Oct 2021 02:15:13 +0200 Subject: Fixes lambda functions not always working. --- data/unit-testing/fold.fate | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) (limited to 'data/unit-testing/fold.fate') 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 ) ) -- cgit v1.2.3-70-g09d2