Minilisp.pm/t/loop.t

7 lines
177 B
Turing

(expect "loop"
(equal (let ((i 0))
(loop (set i (+ i 1))
(when (> i 3)
(return i))))
4))