db: moved pg-only code out of interfaces module

This commit is contained in:
Ryan Culpepper 2011-08-29 01:25:28 -06:00
parent b3e55dc078
commit 94456ad0ec
2 changed files with 7 additions and 11 deletions

View File

@ -14,7 +14,6 @@
define-type-table
no-cache-prepare<%>
connector<%>
locking%
transactions%
@ -176,16 +175,6 @@
(list ok? t x)))))
;; == Internal staging interfaces
;; connector<%>
;; Manages making connections
(define connector<%>
(interface ()
attach-to-ports ;; input-port output-port -> void
start-connection-protocol ;; string string string/#f -> void
))
;; == Notice/notification handler maker
;; make-handler : output-port/symbol string -> string string -> void

View File

@ -14,6 +14,13 @@
;; ========================================
;; connector<%>
;; Manages making connections
(define connector<%>
(interface ()
attach-to-ports ;; input-port output-port -> void
start-connection-protocol)) ;; string string string/#f -> void
(define connection-base%
(class* transactions% (connection<%> connector<%>)
(init-private notice-handler