I still need some refinement, but basically it works.<div><br></div><div>Thanks again,</div><div>Jens Axel</div><div><br><div class="gmail_quote">2012/7/3 Jens Axel Søgaard <span dir="ltr">&lt;<a href="mailto:jensaxel@soegaard.net" target="_blank">jensaxel@soegaard.net</a>&gt;</span><br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="gmail_quote"><div class="im">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><div>Sneaky.</div><div><br></div><div>Thanks!</div><span class="HOEnZb"><font color="#888888"><div><br></div><div>/Jens Axel</div><div> </div></font></span></div>

</blockquote></div><br><br clear="all"><div><br></div>-- <br>-- <br>Jens Axel Søgaard<br><br><br>
</div>