(While making a real solution to the problem, and as a part of debugging, run ##gc right at the end of each do-process . Does it have any effect?)<br><br><div class="gmail_quote">2011/9/9 Adam King <span dir="ltr">&lt;<a href="mailto:akingcoder@gmail.com">akingcoder@gmail.com</a>&gt;</span><br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">I need to descend a directory structure with ~5000 files in it and run an external process on each to gether information on each file.  However, after running over about 250 files, I get a &quot;Too many open files&quot; error.  250 is probably OSX default max open file limit - but I don&#39;t understand why the &#39;with-input-from-process&#39; doesn&#39;t appear to be closing its file handle?  I also tried with &#39;open-input-process&#39; and &#39;open-process&#39; and manually calling &#39;close-input-port&#39; but didn&#39;t help.  Here&#39;s a small script that shows the exact same prob:<div>


<br></div><blockquote style="margin:0 0 0 40px;border:none;padding:0px"><div><div><font face="&#39;courier new&#39;, monospace">(define (test-fn)</font></div></div><div><div><font face="&#39;courier new&#39;, monospace">  </font></div>


</div><div><div><font face="&#39;courier new&#39;, monospace">  (define (do-process)</font></div></div><div><div><font face="&#39;courier new&#39;, monospace">    (with-input-from-process (list path: &quot;pwd&quot;) read-all))</font></div>


</div><div><div><font face="&#39;courier new&#39;, monospace"><br></font></div></div><div><div><font face="&#39;courier new&#39;, monospace">  (let loop [(count 2000)]</font></div></div><div><div><font face="&#39;courier new&#39;, monospace">    (if (&gt; count 0)</font></div>


</div><div><div><font face="&#39;courier new&#39;, monospace">        (begin</font></div></div><div><div><font face="&#39;courier new&#39;, monospace">          (do-process)</font></div></div><div><div><font face="&#39;courier new&#39;, monospace">          (loop (- count 1)))</font></div>


</div><div><div><font face="&#39;courier new&#39;, monospace">        (println &quot;Done&quot;))))</font></div></div><div><div><font face="&#39;courier new&#39;, monospace"><br></font></div></div><div><div><font face="&#39;courier new&#39;, monospace"><br>


</font></div></div><div><div><font face="&#39;courier new&#39;, monospace">(test-fn)</font></div></div><div><font face="&#39;courier new&#39;, monospace"><br></font></div></blockquote><font face="arial, helvetica, sans-serif">And the output:</font><div>


<font face="arial, helvetica, sans-serif"><br></font></div><div><div>bigmac:iosTexConverter aking$ gsc -v</div><div>v4.6.1 20110519175028 i386-apple-darwin10.8.0 &quot;./configure /usr/local/Gambit-C/share/config.site /usr/local/Gambit-C/etc/config.site&quot;</div>


<div><br></div><div>bigmac:iosTexConverter aking$ gsi ./test.scm </div><div>*** ERROR IN loop, &quot;test.scm&quot;@9.11 -- Too many open files</div><div>(with-input-from-process &#39;(path: &quot;pwd&quot;) &#39;#&lt;procedure #2 read-all&gt;)</div>


<div>bigmac:iosTexConverter aking$ </div></div><div><br></div><div>Running latest from the Gambit git repo and OSX 10.6.8.  As far as I can tell, calling &#39;pwd&#39; shouldn&#39;t be leaving around open file handles.  I also checked the process-status, and it was 0.  Any suggestions?</div>


<br>_______________________________________________<br>
Gambit-list mailing list<br>
<a href="mailto:Gambit-list@iro.umontreal.ca">Gambit-list@iro.umontreal.ca</a><br>
<a href="https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list" target="_blank">https://webmail.iro.umontreal.ca/mailman/listinfo/gambit-list</a><br>
<br></blockquote></div><br>