X-Git-Url: https://git.distorted.org.uk/~mdw/termux-packages/blobdiff_plain/c497a759ebc5c74f1d3e70003742279ae424e282..72dd9a3b355d1b0b0eb21702dbb61a04d87b19ea:/packages/picolisp/src-main.c.patch?ds=sidebyside

diff --git a/packages/picolisp/src-main.c.patch b/packages/picolisp/src-main.c.patch
new file mode 100644
index 00000000..0f351915
--- /dev/null
+++ b/packages/picolisp/src-main.c.patch
@@ -0,0 +1,15 @@
+diff -u -r ../picoLisp/src/main.c ./src/main.c
+--- ../picoLisp/src/main.c	2015-11-24 02:39:50.000000000 -0500
++++ ./src/main.c	2015-11-26 18:07:24.794312532 -0500
+@@ -834,8 +834,10 @@
+          strcpy(buf + n + 4 + strlen(nm), ".dll");
+ #endif
+       }
+-      if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL))  ||  !(h = dlsym(h,p)))
++      if (!(h = dlopen(buf, RTLD_LAZY | RTLD_GLOBAL))  ||  !(h = dlsym(h,p))) {
++	 fprintf(stderr, "dlopen/dlsym problem: %s\n", dlerror());
+          return NO;
++      }
+       val(x) = box(num(h));
+    }
+    return YES;