Hi, Matthew:<br><br><div class="gmail_quote"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Slideshow&#39;s `code&#39; layout depends on the layout of the source. To get
<br>the layout information, the source needs to be literally within a<br>`code&#39; form.<br></blockquote><div><br>&nbsp;I have tried other ways, all fails  <br><br>So , I have to copy/paste the source code in the my slides:-( 
<br>&nbsp; <br></div><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><br><div class="Ih2E3d">&gt; 2. How can I reserve the annotations when I apply pretty-print ?
<br><br></div>I&#39;m not sure I understand the question.<br></blockquote><div><br>I have many replace work to handle in my scheme source code , any time when I modify the source code, it appears hard to read<br><br>so I use&nbsp; pretty-print.&nbsp; but ,the annotations lost
<br><br>here is the code:<br><br>&nbsp; (define (sub before after source target)<br>&nbsp;&nbsp;&nbsp; (let ([v ()])<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (call-with-input-file source<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lambda (iport)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set! v (read iport))))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (call-with-output-file target
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (lambda (oport)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (pretty-print (tsub before after v) oport))<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; &#39;truncate)))<br></div></div><br>Yes, I can strip off the pretty-print on &quot;(tsub before after v)&quot;<br><br>but, it is hard to read that file, any suggestions?
<br><br><br>Gang<br>