<div class="gmail_quote">2012/7/3 Robby Findler <span dir="ltr">&lt;<a href="mailto:robby@eecs.northwestern.edu" target="_blank">robby@eecs.northwestern.edu</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
This is the function you want, I think:<br>
<br>
+<br>
+(define (sym-&gt;original-syntax sym srcloc)<br>
+  (define p (open-input-string (symbol-&gt;string sym)))<br>
+  (port-count-lines! p)<br>
+  (match-define (list source-name line column position span) srcloc)<br>
+  (set-port-next-location! p line column position)<br>
+  (read-syntax source-name p))</blockquote><div><br></div><div>Sneaky.</div><div><br></div><div>Thanks!</div><div><br></div><div>/Jens Axel</div><div> </div></div>