On Tue, Mar 17, 2009 at 5:07 PM, Matthew Flatt <[email protected]> wrote: > > This change is in SVN as v4.1.5.2.
This doesn't seem to be working for me. In particular, this program
(also attached) gives an error from `free-identifier-mapping-get', but
I think it should succeed.
#lang scheme/load
(module m scheme
(require (for-syntax syntax/boundmap))
(define-for-syntax table (make-free-identifier-mapping))
(define-syntax x 1)
(define-syntax x* (make-rename-transformer #'x))
(begin-for-syntax
(free-identifier-mapping-put! table #'x 'got-it))
(define-syntax (get stx)
(syntax-case stx ()
[(_ i)
#`(quote #,(free-identifier-mapping-get table #'i))]))
(provide (rename-out [x* x]) get))
(module n scheme
(require 'm)
(get x))
(require 'n)
Am I doing something wrong here?
Thanks,
--
sam th
[email protected]
id-map-bug.ss
Description: Binary data
_________________________________________________ For list-related administrative tasks: http://list.cs.brown.edu/mailman/listinfo/plt-dev
