Expect a warning several times: Difference between revisions

@@ Line 4: / Line 4: @@
 <pre>
-#(define expect-warning-times (lambda args
+#(define (expect-warning-times n . args)
-    (for-each (lambda _ (apply ly:expect-warning (cdr args)))
+    (for-each (lambda _ (apply ly:expect-warning args))
-              (iota (car args)))))
+              (iota n)))
 </pre>