carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-09-11 13:37:57 +03:00
Code Issues Projects Releases Wiki Activity

Ref result.

Browse Source
This commit is contained in:
Erik Svedäng 2020-04-29 09:48:37 +02:00
parent de8104eb14
commit c42ffec862
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/Control.carp
View File

@ -14,7 +14,7 @@
(sig iterate-until (Fn [a, (Ref (Fn [b] b c) d), (Ref (Fn [b] 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))