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

Switch to id-table, Rackety.

Browse Source 
original commit: 076c0fe6d821bc99c80eda95d627091e6fe0d7c3
This commit is contained in:
Sam Tobin-Hochstadt 2011-09-05 18:00:09 -04:00
parent d42ee35141
commit b46873bd75
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/typed-racket/rep/interning.rkt
View File

@ -1,6 +1,6 @@
#lang scheme/base
#lang racket/base
(require syntax/boundmap (for-syntax scheme/base syntax/parse))
(require syntax/id-table racket/dict (for-syntax racket/base syntax/parse))
(provide defintern hash-id)
@ -34,12 +34,12 @@
(define count! (make-count!))
(define id-count! (make-count!))
(define identifier-table (make-module-identifier-mapping))
(define identifier-table (make-free-id-table))
(define (hash-id id)
(module-identifier-mapping-get
(dict-ref
identifier-table
id
(lambda () (let ([c (id-count!)])
(module-identifier-mapping-put! identifier-table id c)
(dict-set! identifier-table id c)
c))))