From 8c67e36822c66c98331f60f0aa8c5fb8a3917888 Mon Sep 17 00:00:00 2001 From: Adriano Zambrana Marchetti Date: Fri, 28 Oct 2022 13:02:08 -0400 Subject: [PATCH] Fix for #1437 --- core/Control.carp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/Control.carp b/core/Control.carp index d4f96e3b2..8de7ddc08 100644 --- a/core/Control.carp +++ b/core/Control.carp @@ -13,10 +13,10 @@ other higher order concepts.") result)) (doc iterate-until "Like `iterate`, but f is applied repeatedly until the predicate `pred` is true.") - (sig iterate-until (Fn [(Ref (Fn [b] b c) d), (Ref (Fn [b] Bool c) e), b] b)) + (sig iterate-until (Fn [(Ref (Fn [b] b c) d), (Ref (Fn [(Ref b f)] Bool c) e), b] b)) (defn iterate-until [f pred start] (let-do [result start] - (while (not (~pred result)) + (while (not (~pred &result)) (set! result (~f result))) result))