Correct type error
This commit is contained in:
parent
536a7d8e3d
commit
ebc798c0aa
|
@ -491,7 +491,7 @@
|
||||||
(error 'matcher->finite-set "Internal error: unexpected key-close")]
|
(error 'matcher->finite-set "Internal error: unexpected key-close")]
|
||||||
[else
|
[else
|
||||||
(k key mk)]))))]
|
(k key mk)]))))]
|
||||||
[_ (k (set) #f)]))
|
[_ (set)]))
|
||||||
|
|
||||||
;; Matcher (Value Matcher -> (Setof (Listof Value))) -> (Option (Setof (Listof Value)))
|
;; Matcher (Value Matcher -> (Setof (Listof Value))) -> (Option (Setof (Listof Value)))
|
||||||
;; Calls k with each possible sequence of atomic values at this
|
;; Calls k with each possible sequence of atomic values at this
|
||||||
|
@ -510,7 +510,7 @@
|
||||||
(k (for/set [(vs (in-set vss))]
|
(k (for/set [(vs (in-set vss))]
|
||||||
(cons v vs))
|
(cons v vs))
|
||||||
vsk)))))]))))]
|
vsk)))))]))))]
|
||||||
[_ (k (set) #f)]))
|
[_ (k (set) #f)])) ;; TODO: ??
|
||||||
|
|
||||||
;; (Listof Value) Sigma -> Value
|
;; (Listof Value) Sigma -> Value
|
||||||
(define (transform-seqs vs opener)
|
(define (transform-seqs vs opener)
|
||||||
|
|
Loading…
Reference in New Issue