scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

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

Browse source
This commit is contained in:
Sergiu Ivanov 2022-04-22 14:35:38 +02:00
parent 79a688a3e5
commit d958c5822d
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
functions.rkt
View file

@ -84,7 +84,7 @@
(check-false (g #t #f)) (check-false (g #t #f))
(check-exn exn:fail? (λ () (g #t #f #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) (define (name funcs doms)
(for/list ([xs (in-list (apply cartesian-product doms))]) (for/list ([xs (in-list (apply cartesian-product doms))])
(row-op xs (for/list ([f funcs]) : (Listof b) (row-op xs (for/list ([f funcs]) : (Listof b)