syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Only canonicalize non (symbol/fixnum/struct-type)s, since these are already unique

This commit is contained in:
Tony Garnock-Jones 2016-03-13 10:39:02 +00:00
parent b1c773ddd4
commit 1724860be2
1 changed files with 17 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
prospect/canonicalize.rkt
View File

@ -8,16 +8,23 @@
(define sentinel (cons #f #f)) (define sentinel (cons #f #f))
(define (canonicalize val) (define (canonicalize val)
(define b (hash-ref canonical-values (cond
val [(or (struct-type? val)
(lambda () (symbol? val)
(define new-b (make-weak-box val)) (fixnum? val))
(hash-set! canonical-values val new-b) ;; These values already have unique representations.
#f))) val]
(if (not b) [else
(canonicalize val) (define b (hash-ref canonical-values
(let ((v (weak-box-value b sentinel))) val
(if (eq? v sentinel) (canonicalize val) v)))) (lambda ()
(define new-b (make-weak-box val))
(hash-set! canonical-values val new-b)
#f)))
(if (not b)
(canonicalize val)
(let ((v (weak-box-value b sentinel)))
(if (eq? v sentinel) (canonicalize val) v)))]))
(module+ test (module+ test
(require rackunit) (require rackunit)