blob: 7c5b8b50c320a52dd8f1866e33d5acb8c8623328 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
--- old/private/http.scm
+++ new/private/http.scm
@@ -101,14 +101,7 @@
;; shouldn't, but it's an old issue.
(log/error "Could not load libcurl. Please install the curl development(!) package.")
(exit 1)))
- (case (os-name)
- ((darwin) (set! libcurl (open-shared-object "libcurl.dylib")))
- ((msys) (set! libcurl (open-shared-object "msys-curl-4")))
- (else
- (guard (exn
- (else
- (set! libcurl (open-shared-object "libcurl.so.3"))))
- (set! libcurl (open-shared-object "libcurl.so.4"))))))
+ (set! libcurl (open-shared-object "@libcurl@")))
(letrec ()
(define %curl_global_init (foreign-procedure libcurl int curl_global_init (long)))
(call %curl_global_init #b11)))
|
