@@ -1,7 +1,7 @@ -;; Copyright 2006-2012, Matthew Welland. +;; Copyright 2006-2016, Matthew Welland. ;; ;; This program is made available under the GNU GPL version 2.0 or ;; greater. See the accompanying file COPYING for details. ;; ;; This program is distributed WITHOUT ANY WARRANTY; without even the @@ -189,16 +189,16 @@ ;; start_server? ;; (define (rpc-transport:launch run-id) (set! *run-id* run-id) - ;; send to background if requested - (when (args:get-arg "-daemonize") - (daemon:ize) - (when *alt-log-file* ;; we should re-connect to this port, I think daemon:ize disrupts it - (current-error-port *alt-log-file*) - (current-output-port *alt-log-file*))) + ;; ;; send to background if requested + ;; (when (args:get-arg "-daemonize") + ;; (daemon:ize) + ;; (when *alt-log-file* ;; we should re-connect to this port, I think daemon:ize disrupts it + ;; (current-error-port *alt-log-file*) + ;; (current-output-port *alt-log-file*))) ;; double check we dont alrady have a running server for this run-id (when (server:check-if-running run-id) (debug:print 0 *default-log-port* "INFO: Server for run-id " run-id " already running") (exit 0))