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 e0a034639c77ad540b0b5c35ce85e11cc74c0c0d
parent 8794cd0123ab851ed2d2590b87cf5fea1071c850
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed,  5 Oct 2011 15:16:17 +0200

'open' optional 'flg' argument
Diffstat:
Msrc/io.c | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/io.c b/src/io.c @@ -2178,8 +2178,8 @@ any doOpen(any ex) { int fd; pathString(x, nm); - x = caddr(ex); - while ((fd = open(nm, isNil(EVAL(x))? O_CREAT|O_RDWR:O_RDONLY, 0666)) < 0) { + x = caddr(ex), x = EVAL(x); + while ((fd = open(nm, isNil(x)? O_CREAT|O_RDWR : O_RDONLY, 0666)) < 0) { if (errno != EINTR) return Nil; if (*Signal)