suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

change sets generics so they default to supplying the optional argument

Browse Source 
if the given procedure accepts it
This commit is contained in:
Robby Findler 2015-12-29 11:26:17 -06:00
parent 2c5aa96031
commit 22adc0253b
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
racket/collects/racket/private/set-types.rkt
View File

@ -794,26 +794,26 @@
(struct wrapped-elem custom-elem [] (struct wrapped-elem custom-elem []
#:methods gen:equal+hash #:methods gen:equal+hash
[(define equal-proc [(define equal-proc
(if (procedure-arity-includes? =? 2) (if (procedure-arity-includes? =? 3)
(lambda (a b f)
(=? (custom-elem-contents a)
(custom-elem-contents b)))
(lambda (a b f) (lambda (a b f)
(=? (custom-elem-contents a) (=? (custom-elem-contents a)
(custom-elem-contents b) (custom-elem-contents b)
f)))) f))
(lambda (a b f)
(=? (custom-elem-contents a)
(custom-elem-contents b)))))
(define hash-proc (define hash-proc
(if (procedure-arity-includes? hc1 1) (if (procedure-arity-includes? hc1 2)
(lambda (a f) (lambda (a f)
(hc1 (custom-elem-contents a))) (hc1 (custom-elem-contents a) f))
(lambda (a f) (lambda (a f)
(hc1 (custom-elem-contents a) f)))) (hc1 (custom-elem-contents a)))))
(define hash2-proc (define hash2-proc
(if (procedure-arity-includes? hc2 1) (if (procedure-arity-includes? hc2 2)
(lambda (a f) (lambda (a f)
(hc2 (custom-elem-contents a))) (hc2 (custom-elem-contents a) f))
(lambda (a f) (lambda (a f)
(hc2 (custom-elem-contents a) f))))]) (hc2 (custom-elem-contents a)))))])
(custom-spec elem? wrapped-elem (make-weak-hasheq))) (custom-spec elem? wrapped-elem (make-weak-hasheq)))
(define (default-hc x f) 1) (define (default-hc x f) 1)