dotimes   macro


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define-macro (dotimes init . body)
   `(if (<= ,(cadr init) 0)
  '()
  (let uri1834ck ((,(car init) 0))
     ,@body
     (if (< ,(car init) (- ,(cadr init) 1))
         (uri1834ck (+ ,(car init) 1))))))


Back to Index

Similar Entries