From b46873bd75d6a7b28d991aad7044170a88ceb3bb Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 5 Sep 2011 18:00:09 -0400 Subject: [PATCH] Switch to id-table, Rackety. original commit: 076c0fe6d821bc99c80eda95d627091e6fe0d7c3 --- collects/typed-racket/rep/interning.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/collects/typed-racket/rep/interning.rkt b/collects/typed-racket/rep/interning.rkt index 79b6fd80..79fafd25 100644 --- a/collects/typed-racket/rep/interning.rkt +++ b/collects/typed-racket/rep/interning.rkt @@ -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))))