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

Add equality operations for Reps.

Browse Source 
This speeds up microbenchmarks by 50%, and new-metrics.rkt by 30%.
This commit is contained in:
Eric Dobson 2014-06-23 23:20:38 -07:00
parent d3e008af50
commit 5cf65e28fc
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/rep/rep-utils.rkt
View File

@ -30,7 +30,12 @@
;; free-vars: cached free type variables ;; free-vars: cached free type variables
;; free-idxs: cached free dot sequence variables ;; free-idxs: cached free dot sequence variables
;; stx: originating syntax for error-reporting ;; stx: originating syntax for error-reporting
(define-struct Rep (seq free-vars free-idxs stx) #:transparent) (define-struct Rep (seq free-vars free-idxs stx) #:transparent
#:methods gen:equal+hash
[(define (equal-proc x y recur)
(eq? (unsafe-Rep-seq x) (unsafe-Rep-seq y)))
(define (hash-proc x recur) (unsafe-Rep-seq x))
(define (hash2-proc x recur) (unsafe-Rep-seq x))])
;; evil tricks for hygienic yet unhygienic-looking reference ;; evil tricks for hygienic yet unhygienic-looking reference
;; in say def-type for type-ref-id ;; in say def-type for type-ref-id