From 076c0fe6d821bc99c80eda95d627091e6fe0d7c3 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. --- 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 79b6fd80c9..79fafd25d6 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))))