Remove extra default path arg to -filter calls.

original commit: 81804760c5a3015af9cca5ede1820c6e4f5cef23
This commit is contained in:
Eric Dobson 2014-05-31 14:04:25 -07:00
parent 632338c231
commit ac571641ba
3 changed files with 7 additions and 7 deletions

View File

@ -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)))

View File

@ -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)))

View File

@ -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