picolisp

commit 6140df9eabb04f2801f5bd24fcfff2f8063f922b
parent 4bc39f6016ca13c58d1506dc7f8d49073274d7e7
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  5 Sep 2012 19:17:51 +0200

File descriptor leak in 'dir' (64-bit)
Diffstat:
M
CHANGES
 | 
1
+
M
src64/main.l
 | 
3
++-

2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * DDmmm12 picoLisp-3.1.1
+   File descriptor leak in 'dir' (64-bit)
    Namespace support also in Ersatz PicoLisp
    JavaScript 'lisp' calls
    '+DbHint' gui prefix class
diff --git a/src64/main.l b/src64/main.l
@@ -1,4 +1,4 @@
-# 07jun12abu
+# 05sep12abu
 # (c) Software Lab. Alexander Burger
 
 (code 'Code)
@@ -2920,6 +2920,7 @@
       cc readdir(Z)  # Find first directory entry
       null A  # OK?
       if z  # No
+         cc closedir(Z)  # Close directory
 10       ld E Nil  # Return NIL
          pop Z
          pop X