From 4993c085afffc01f825194aa75cb85061ce09758 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 22 Oct 2013 00:02:46 -0400 Subject: [PATCH] fix missing sqlite3.dll with raco distribute closes PR 14025 --- racket/collects/db/private/sqlite3/ffi.rkt | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/racket/collects/db/private/sqlite3/ffi.rkt b/racket/collects/db/private/sqlite3/ffi.rkt index c94aefb26a..e02d069cf2 100644 --- a/racket/collects/db/private/sqlite3/ffi.rkt +++ b/racket/collects/db/private/sqlite3/ffi.rkt @@ -7,17 +7,17 @@ (provide (all-from-out "ffi-constants.rkt") (protect-out (all-defined-out))) -(define sqlite-lib - (case (system-type) - [(windows) (ffi-lib "sqlite3.dll" #:fail (lambda () #f))] - [else (ffi-lib "libsqlite3" '("0" #f) #:fail (lambda () #f))])) - ;; raco distribute should include Racket's sqlite3 if present -(define-runtime-path _sqlite-lib-for-distribute +(define-runtime-path sqlite-so (case (system-type) [(windows) '(so "sqlite3")] [else '(so "libsqlite3")])) +(define sqlite-lib + (case (system-type) + [(windows) (ffi-lib sqlite-so #:fail (lambda () #f))] + [else (ffi-lib sqlite-so '("0" #f) #:fail (lambda () #f))])) + (define-ffi-definer define-sqlite sqlite-lib #:default-make-fail make-not-available)