Index: common.scm ================================================================== --- common.scm +++ common.scm @@ -2284,11 +2284,11 @@ (host-name (srvdat-host srvdat)) (soc (srvdat-soc srvdat))) ;; start the queue processor (save for second round of development) ;; - ;; (thread-start! (queue-processory dbconn) "Queue processor") + (thread-start! (queue-processory dbconn) "Queue processor") ;; msg is an alist ;; 'r host:port <== where to return the data ;; 'p params <== data to apply the command to ;; 'e j|s|l <== encoding of the params. default is s (sexp), if not specified is assumed to be default ;; 'c command <== look up the function to call using this key Index: mtut.scm ================================================================== --- mtut.scm +++ mtut.scm @@ -15,11 +15,11 @@ (use srfi-1 posix srfi-69 readline ;; regex regex-case srfi-69 apropos json http-client directory-utils rpc typed-records;; (srfi 18) extras) srfi-18 extras format pkts pkts regex regex-case (prefix dbi dbi:) (prefix nanomsg nmsg:)) - +test (declare (uses common)) (declare (uses megatest-version)) (declare (uses margs)) (declare (uses configf)) ;; (declare (uses rmt))