mdw@git.distorted.org.uk Git - termux-packages/blob - packages/picolisp/src-main.c.patch

   1 diff -u -r ../picoLisp/src/main.c ./src/main.c
   2 --- ../picoLisp/src/main.c      2015-11-24 02:39:50.000000000 -0500
   3 +++ ./src/main.c        2015-11-26 18:07:24.794312532 -0500
   4 @@ -834,8 +834,10 @@
   5           strcpy(buf + n + 4 + strlen(nm), ".dll");
   6  #endif
   7        }
   8 -      if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL))  ||  !(h = dlsym(h,p)))
   9 +      if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL))  ||  !(h = dlsym(h,p))) {
  10 +        fprintf(stderr, "dlopen/dlsym problem: %s\n", dlerror());
  11           return NO;
  12 +      }
  13        val(x) = box(num(h));
  14     }
  15     return YES;