48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
;; start_server
;;
(define (server:launch run-id)
(if (server:check-if-running run-id)
;; a server is already running
(exit)
(http-transport:launch run-id)))
;;======================================================================
;; Q U E U E M A N A G E M E N T
;;======================================================================
;; We don't want to flush the queue if it was just flushed
(define *server:last-write-flush* (current-milliseconds))
|
>
>
>
>
>
|
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
;; start_server
;;
(define (server:launch run-id)
(if (server:check-if-running run-id)
;; a server is already running
(exit)
(http-transport:launch run-id)))
(define (server:launch-no-exit run-id)
(if (server:check-if-running run-id)
#t ;; if running
(http-transport:launch run-id)))
;;======================================================================
;; Q U E U E M A N A G E M E N T
;;======================================================================
;; We don't want to flush the queue if it was just flushed
(define *server:last-write-flush* (current-milliseconds))
|