(OOC, would a patch like this be appropriate for 1.6? What's the
policy there?)
ISTR someone suggested triggering the garbage collector after so many
open()s; that might make this patch unnecessary - if it included
opendir(), that is. Anyway:
Index: guile-core/ice-9/ftw.scm
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/ice-9/ftw.scm,v
retrieving revision 1.2
diff -u -r1.2 ftw.scm
--- guile-core/ice-9/ftw.scm 5 Apr 2003 19:04:27 -0000 1.2
+++ guile-core/ice-9/ftw.scm 8 Oct 2003 19:51:29 -0000
@@ -197,7 +197,9 @@
(let loop ((new (readdir dir-stream))
(acc '()))
(if (eof-object? new)
- acc
+ (begin
+ (closedir dir-stream)
+ acc)
(loop (readdir dir-stream)
(if (or (string=? "." new) ;;; ignore
(string=? ".." new)) ;;; ignore
paul
_______________________________________________
Bug-guile mailing list
[EMAIL PROTECTED]
http://mail.gnu.org/mailman/listinfo/bug-guile
