Minilisp.pm/t/loop.t

7 lines
177 B
Perl
Raw Normal View History

2021-04-07 23:31:28 +02:00
(expect "loop"
(equal (let ((i 0))
(loop (set i (+ i 1))
(when (> i 3)
(return i))))
4))