Minilisp.pm/t/loop.t

(plan 1)

(expect "loop"
        (equal (let ((i 0))
                 (loop (set i (+ i 1))
                       (when (> i 3)
                         (return i))))
               4))
Add plan to each test 2021-04-09 00:01:27 +02:00			`(plan 1)`

Add loop macro and a test 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))`