92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
itemmap-table
'()))))
;; given a list of itemmaps (testname . map), return the first match
;;
(define (tests:lookup-itemmap itemmaps testname)
(let ((best-matches (filter (lambda (itemmap)
(tests:match (car itemmap) testname))
itemmaps)))
(if (null? best-matches)
#f
(car best-matches))))
;; given test-b that is waiting on test-a extend test-patt appropriately
;;
|
|
|
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
|
itemmap-table
'()))))
;; given a list of itemmaps (testname . map), return the first match
;;
(define (tests:lookup-itemmap itemmaps testname)
(let ((best-matches (filter (lambda (itemmap)
(tests:match (car itemmap) testname #f))
itemmaps)))
(if (null? best-matches)
#f
(car best-matches))))
;; given test-b that is waiting on test-a extend test-patt appropriately
;;
|