764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
|
(begin
(debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
(exit 1))))
;; immediately set MT_TARGET if -reqtarg or -target are available
;;
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
(if targ (set-environment-variable! "MT_TARGET" targ)))
;; The watchdog is to keep an eye on things like db sync etc.
;;
;; (init-watchdog)
;; (define (debug:debug-mode n)
;; (cond
|
>
>
|
>
>
>
>
|
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
|
(begin
(debug:print-error 0 *default-log-port* "non-existant start dir " (args:get-arg "-start-dir") " specified, exiting.")
(exit 1))))
;; immediately set MT_TARGET if -reqtarg or -target are available
;;
(let ((targ (or (args:get-arg "-reqtarg")(args:get-arg "-target"))))
(if targ
(begin
(set-environment-variable! "MT_TARGET" targ)
(mytarget targ)
)
)
)
;; The watchdog is to keep an eye on things like db sync etc.
;;
;; (init-watchdog)
;; (define (debug:debug-mode n)
;; (cond
|