suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Ryan Culpepper 2012-01-24 15:19:57 -07:00
parent b839b03d4b
commit 0b3691691a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/db/private/generic/place-client.rkt
View File

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