Commit | Line | Data |
---|---|---|
72dd9a3b FF |
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; |