@@ -344,22 +344,10 @@ ;; (list "ERROR, not string, list, number or boolean" 1 cmd params res))))) (db:obj->string res transport: 'http))) (define api:queue-mutex (make-mutex)) -(defstruct api:queues - (enable #f) - (dbstruct #f) ;; must be initialized! - (mutex (make-mutex)) - (readq '()) - (writeq '()) - (last-read (current-milliseconds)) - (last-write (current-milliseconds)) - (read-cvar (make-condition-variable "reads")) - (write-cvar (make-condition-variable "writes")) - ) - ;; api queued request handler ;; ;; qry-type: read write transaction ;; (define (api:queued-request queues qry-type params proc)