define-syntax-parse-rule: Give the syntax class for row-op.
This commit is contained in:
parent
79a688a3e5
commit
d958c5822d
1 changed files with 1 additions and 1 deletions
|
@ -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)
|
||||
|
|
Loading…
Reference in a new issue