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

regexp: don't equate #rx and #px

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-12 11:15:13 -06:00
parent c43e42c903
commit a7989924fa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/regexp/match/regexp.rkt
View File

@ -35,7 +35,8 @@
#:property prop:object-name (struct-field-index source) #:property prop:object-name (struct-field-index source)
#:property prop:equal+hash (list #:property prop:equal+hash (list
(lambda (a b eql?) (lambda (a b eql?)
(equal? (rx:regexp-source a) (rx:regexp-source b))) (and (eq? (rx:regexp-px? a) (rx:regexp-px? b))
(equal? (rx:regexp-source a) (rx:regexp-source b))))
(lambda (a hc) (lambda (a hc)
(hc (rx:regexp-source a))) (hc (rx:regexp-source a)))
(lambda (a hc) (lambda (a hc)