I still need some refinement, but basically it works. Thanks again, Jens Axel
2012/7/3 Jens Axel Søgaard <[email protected]> > 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 > > -- -- Jens Axel Søgaard
____________________ Racket Users list: http://lists.racket-lang.org/users
