@@ -399,13 +399,13 @@ (thread-sleep! 0.5) ;; give some margin for queries to complete before switching from file based access to server based access (set! *dbstruct-db* (db:setup)) ;; run-id)) (set! server-going #t) (tasks:server-set-state! (db:delay-if-busy tdbdat) server-id "running") ;;(BB> "http-transport: ->running") - (server:write-dotserver *toppath* iface port (current-process-id) 'http) + (server:write-dotserver *toppath* iface port (current-process-id) 'http) ;; create file .server (thread-start! *watchdog*) - (server:complete-attempt *toppath*)) + (server:complete-attempt *toppath*)) ;; delete file .starting-server (begin ;; gotta exit nicely ;;(BB> "http-transport: ->collision") (tasks:server-set-state! (db:delay-if-busy tdbdat) server-id "collision") (http-transport:server-shutdown server-id port))))))