Minilisp.pm/t/loop.t
2021-04-09 00:01:27 +02:00

9 lines
187 B
Turing

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