picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
MCHANGES | 1+
Msrc64/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