db: fix sqlite3 #:use-place for raco exe

This commit is contained in:
Ryan Culpepper 2012-01-24 15:19:57 -07:00
parent b839b03d4b
commit 0b3691691a

View File

@ -4,6 +4,8 @@
racket/place
racket/promise
racket/serialize
racket/runtime-path
(for-syntax (only-in racket/base quote))
ffi/unsafe/atomic
"interfaces.rkt"
"prepared.rkt")
@ -15,6 +17,9 @@
(define (pchan-get chan)
(deserialize (place-channel-get chan)))
(define-runtime-module-path-index _place-server
'db/private/generic/place-server)
(define connection-server-channel
(delay/sync
(dynamic-place 'db/private/generic/place-server 'connection-server)))