diff --git a/debug.rkt b/debug.rkt index f408636..e8cb3ca 100644 --- a/debug.rkt +++ b/debug.rkt @@ -17,9 +17,17 @@ [(_ expr ...) (datum->syntax stx `(begin ,@(map (λ(arg) `(report ,arg)) (syntax->datum #'(expr ...)))))])) -(define-syntax-rule (repeat num expr) +(define-syntax-rule (repeat num expr ...) (for/last ([i (in-range num)]) - expr)) + expr ...)) -(define-syntax-rule (time-repeat num expr) - (time (repeat num expr))) \ No newline at end of file + +(define-syntax-rule (time-repeat num expr ...) + (time (repeat num expr ...))) + + +(define-syntax (time-repeat* stx) + (syntax-case stx () + [(_ num expr ...) + (let ([num (syntax->datum #'num)]) + (datum->syntax stx `(values ,@(map (λ(arg) `(time-repeat ,num ,arg)) (syntax->datum #'(expr ...))))))]))