<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16788" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face="Courier New" size=2>Please help me with the following problem 
extracted from a larger piece of code.</FONT></DIV>
<DIV><FONT face="Courier New" size=2>I&nbsp;have in .../collects/problem/lang 
the following two files:</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>;file reader.ss</FONT></DIV>
<DIV><FONT face="Courier New" size=2>(module reader syntax/module-reader 
scheme<BR>&nbsp;#:wrapper1<BR>&nbsp;(lambda (t)<BR>&nbsp; (parameterize 
((current-readtable readtable))</FONT></DIV>
<DIV><FONT face="Courier New" size=2>&nbsp; &nbsp;(t)))</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>&nbsp;(define read-braces<BR>&nbsp; 
(case-lambda<BR>&nbsp;&nbsp; ((ch port src line col pos)<BR>&nbsp; #`(lambda 
#,@(read-syntax/recursive 'problem port #\{)))<BR>&nbsp;&nbsp; ((ch 
port)<BR>&nbsp;&nbsp;&nbsp; (cons 'lambda (read/recursive port 
#\{)))))</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>&nbsp;(define readtable<BR>&nbsp; 
(make-readtable #f #\{</FONT></DIV>
<DIV><FONT face="Courier New" size=2>&nbsp;&nbsp;'terminating-macro 
read-braces)))</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>and</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>;file test.ss</FONT></DIV>
<DIV><FONT face="Courier New" size=2>#lang problem<BR>({x x} 1 2 3) ; to be read 
as ((lambda x x) 1 2 3)</FONT></DIV>
<DIV><FONT face="Courier New" size=2>; mark the two braces.</FONT></DIV>
<DIV><FONT face="Courier New" size=2></FONT>&nbsp;</DIV>
<DIV><FONT face="Courier New" size=2>When I try to run test.ss it keeps eating 
memory&nbsp;in the&nbsp;compilation phase until memory limits are exceeded 
(700Mb)&nbsp;DrScheme's run icon remains standing still. </FONT><FONT 
face="Courier New" size=2>I guess the reader is getting into an infinite 
regression, but I fail to see how to avoid that problem. I use:</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Welcome to DrScheme, version 
4.1.3.6-svn20dec2008 [3m].<BR>Language: Module; memory limit: 700 
megabytes.</FONT></DIV>
<DIV><FONT face="Courier New" size=2>The readtable works correctly when used 
at&nbsp;top level.</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Help please,</FONT></DIV>
<DIV><FONT face="Courier New" size=2>Jos</FONT></DIV></BODY></HTML>