picolisp

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:
M
src/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)