From 784341f1fa9eb276bb8afbf1c2fe8420f5ea6209 Mon Sep 17 00:00:00 2001
From: Nathanael Sensfelder <SpamShield0@MultiAgentSystems.org>
Date: Mon, 25 Oct 2021 00:14:55 +0200
Subject: Fixes let releasing its registers too soon.

---
 data/unit-testing/merge.fate | 102 ++++++++++++++++++++++++-------------------
 1 file changed, 57 insertions(+), 45 deletions(-)

(limited to 'data/unit-testing')

diff --git a/data/unit-testing/merge.fate b/data/unit-testing/merge.fate
index 2d71db8..184a9f3 100644
--- a/data/unit-testing/merge.fate
+++ b/data/unit-testing/merge.fate
@@ -170,49 +170,55 @@
 
 (set! si2
    (set:merge
-      (lambda
-         (
-            (int a)
-            (int b)
-            (int mod)
+      (partial
+         (lambda
+            (
+               (int mod)
+               (int a)
+               (int b)
+            )
+            (* (- b a) mod)
          )
-         (* (- b a) mod)
+         -1
       )
       (list:range 0 60 2)
       (list:range 10 40 1)
-      -1
    )
 )
 
 (set! si2oa
    (set:merge
-      (lambda
-         (
-            (int a)
-            (int b)
-            (int mod)
+      (partial
+         (lambda
+            (
+               (int mod)
+               (int a)
+               (int b)
+            )
+            (* (- b a) mod)
          )
-         (* (- b a) mod)
+         -1
       )
       (list:range 0 60 2)
       (list:range 10 80 1)
-      -1
    )
 )
 
 (set! si2ob
    (set:merge
-      (lambda
-         (
-            (int a)
-            (int b)
-            (int mod)
+      (partial
+         (lambda
+            (
+               (int mod)
+               (int a)
+               (int b)
+            )
+            (* (- b a) mod)
          )
-         (* (- b a) mod)
+         -1
       )
       (list:range 0 80 2)
       (list:range 10 40 1)
-      -1
    )
 )
 
@@ -417,52 +423,58 @@ For reference, the values found in the sets are:
 
 (set! isi2
    (set:indexed_merge
-      (lambda
-         (
-            (int i)
-            (int a)
-            (int b)
-            (int mod)
+      (partial
+         (lambda
+            (
+               (int mod)
+               (int i)
+               (int a)
+               (int b)
+            )
+            (* (* (- b a) mod) (+ i 1))
          )
-         (* (* (- b a) mod) (+ i 1))
+         -1
       )
       (list:range 0 60 2)
       (list:range 10 40 1)
-      -1
    )
 )
 
 (set! isi2oa
    (set:indexed_merge
-      (lambda
-         (
-            (int i)
-            (int a)
-            (int b)
-            (int mod)
+      (partial
+         (lambda
+            (
+               (int mod)
+               (int i)
+               (int a)
+               (int b)
+            )
+            (* (* (- b a) mod) (+ i 1))
          )
-         (* (* (- b a) mod) (+ i 1))
+         -1
       )
       (list:range 0 60 2)
       (list:range 10 80 1)
-      -1
    )
 )
 
 (set! isi2ob
    (set:indexed_merge
-      (lambda
-         (
-            (int i)
-            (int a)
-            (int b)
-            (int mod)
+      (partial
+         (lambda
+            (
+               (int mod)
+               (int i)
+               (int a)
+               (int b)
+            )
+            (* (- b a) mod (+ i 1))
          )
-         (* (- b a) mod (+ i 1))
+         -1
       )
       (list:range 0 80 2)
       (list:range 10 40 1)
-      -1
    )
 )
 
-- 
cgit v1.2.3-70-g09d2