Remove extra default path arg to -filter calls.
original commit: 81804760c5a3015af9cca5ede1820c6e4f5cef23
This commit is contained in:
parent
632338c231
commit
ac571641ba
|
@ -119,7 +119,7 @@
|
|||
(t (->key -Symbol #:key -Boolean #t Univ))
|
||||
(t (make-Function
|
||||
(list (make-arr* (list Univ) -Boolean #:kws (list (make-Keyword '#:key Univ #t))
|
||||
#:filters (-FS (-filter -Symbol 0 null) (-not-filter -Symbol 0 null))))))
|
||||
#:filters (-FS (-filter -Symbol 0) (-not-filter -Symbol 0))))))
|
||||
(t (-struct #'struct-name #f (list (make-fld -Symbol #'acc #f))))
|
||||
;; Adapted from PR 13815
|
||||
(t (-poly (a) (-> a a)))
|
||||
|
|
|
@ -140,9 +140,9 @@
|
|||
[(-> Any Boolean : #:+ (Number @ 0) #:- (! Number @ 0))
|
||||
(make-pred-ty -Number)]
|
||||
[(Any -> Boolean : #:+ (! Number @ 0) #:- (Number @ 0))
|
||||
(t:->* (list Univ) -Boolean : (-FS (-not-filter -Number 0 null) (-filter -Number 0 null)))]
|
||||
(t:->* (list Univ) -Boolean : (-FS (-not-filter -Number 0) (-filter -Number 0)))]
|
||||
[(-> Any Boolean : #:+ (! Number @ 0) #:- (Number @ 0))
|
||||
(t:->* (list Univ) -Boolean : (-FS (-not-filter -Number 0 null) (-filter -Number 0 null)))]
|
||||
(t:->* (list Univ) -Boolean : (-FS (-not-filter -Number 0) (-filter -Number 0)))]
|
||||
[(All (a b) (-> (-> a Any : #:+ b) (Listof a) (Listof b)))
|
||||
(-poly (a b) (t:-> (asym-pred a Univ (-FS (-filter b 0) -top)) (-lst a) (-lst b)))]
|
||||
[(All (a b) (-> (-> a Any : #:+ (! b)) (Listof a) (Listof b)))
|
||||
|
|
|
@ -312,11 +312,11 @@
|
|||
#:with id #'p.x
|
||||
e]))
|
||||
|
||||
(define (-path t var [p null])
|
||||
(define (-path t var)
|
||||
(ret t
|
||||
(-FS (make-NotTypeFilter (-val #f) p var)
|
||||
(make-TypeFilter (-val #f) p var))
|
||||
(make-Path p var))))
|
||||
(-FS (-not-filter (-val #f) var)
|
||||
(-filter (-val #f) var))
|
||||
(make-Path null var))))
|
||||
|
||||
|
||||
(define tests
|
||||
|
|
Loading…
Reference in New Issue
Block a user