Changeset 13021 in project for release/4/miscmacros


Ignore:
Timestamp:
01/17/09 02:03:47 (12 years ago)
Author:
Kon Lovett
Message:

Added optional final expr to dotimes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/miscmacros/miscmacros.scm

    r11311 r13021  
    120120         ,@body
    121121         (,loop (,(r '-) it 1)))))))
     122
    122123(define-syntax if*
    123124  (lambda (f r c)
     
    132133          ,y)
    133134         ,@z)))))
     135
    134136(define-syntax while*
    135137  (lambda (f r c)
     
    147149    (syntax-rules ()
    148150      ((dotimes (v n) body ...)
     151       (dotimes (v n (begin)) body ...))
     152      ((dotimes (v n f) body ...)
    149153       (let loop ((v 0) (nv n))
    150154         (if (< v nv)
    151155             (begin
    152156               body ...
    153                (loop (add1 v) nv)))))))
     157               (loop (add1 v) nv))
     158             f)))))
    154159
    155160  (define-syntax push!
Note: See TracChangeset for help on using the changeset viewer.