shithub: femtolisp

ref: 5681745bc3eff5ebcaa2986137c1df63ae920a7e
dir: /femtolisp/wt.lsp/

(set! i 0)
(define-macro (while- test . forms)
  `((label -loop- (lambda ()
                    (if ,test
                        (begin ,@forms
                               (-loop-))
			nil)))))
(while (< i 10000000) (set! i (+ i 1)))