2012/7/3 Robby Findler <[email protected]> > This is the function you want, I think: > > + > +(define (sym->original-syntax sym srcloc) > + (define p (open-input-string (symbol->string sym))) > + (port-count-lines! p) > + (match-define (list source-name line column position span) srcloc) > + (set-port-next-location! p line column position) > + (read-syntax source-name p))
Sneaky. Thanks! /Jens Axel
____________________ Racket Users list: http://lists.racket-lang.org/users
