define-syntax-parse-rule: Give the syntax class for row-op.

This commit is contained in:
Sergiu Ivanov 2022-04-22 14:35:38 +02:00
parent 79a688a3e5
commit d958c5822d

View file

@ -84,7 +84,7 @@
(check-false (g #t #f))
(check-exn exn:fail? (λ () (g #t #f #f))))
(define-syntax-parse-rule (make-tabulate* name:id row-op)
(define-syntax-parse-rule (make-tabulate* name:id row-op:id)
(define (name funcs doms)
(for/list ([xs (in-list (apply cartesian-product doms))])
(row-op xs (for/list ([f funcs]) : (Listof b)