Index: rmtmod.scm ================================================================== --- rmtmod.scm +++ rmtmod.scm @@ -113,15 +113,15 @@ ;; info about me as a listener and my connections to db servers ;; stored (for now) in *db-serv-info* ;; (defstruct servdat - (host #f) + (host (get-host-name)) (port #f) (uuid #f) (dbfile #f) - (uconn #f) ;; this is the listener *FOR THIS PROCESS* + (uconn (make-udat host: (get-host-name))) ;; this is the listener *FOR THIS PROCESS* (mode #f) (status 'starting) (trynum 0) ;; count the number of ports we've tried (conns (make-hash-table)) ;; apath/dbname => conndat ) @@ -199,11 +199,11 @@ (define (rmt:open-main-connection remdat apath) (let* ((fullpath (db:dbname->path apath ".db/main.db")) (conns (servdat-conns remdat)) (conn (rmt:get-conn remdat apath ".db/main.db")) ;; (hash-table-ref/default conns fullpath #f)) ;; TODO - create call for this (start-rmt:run (lambda () - (set! *db-serv-info* (make-servdat host: (get-host-name))) + ;; (set! *db-serv-info* (make-servdat host: (get-host-name))) (servdat-mode-set! *db-serv-info* 'non-db) (servdat-uconn-set! *db-serv-info* (make-udat)))) (myconn (servdat-uconn *db-serv-info*))) (cond ((not *db-serv-info*) ;; myconn)