105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(define *bdat* #f) ;; the one and only (someday) global?
(defstruct bdat
(home (getenv "HOME"))
(user (getenv "USER"))
(watchdog #f)
(time-to-exit #f)
(server-loop-heart-beat (current-seconds))
)
(define (make-and-init-bigdata)
(set! *bdat*
(make-bdat)))
;; (define home (getenv "HOME"))
|
>
|
|
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
(define *bdat* #f) ;; the one and only (someday) global?
(defstruct bdat
(home (getenv "HOME"))
(user (getenv "USER"))
(watchdog #f)
(time-to-exit #f)
(task-db #f)
;; (server-loop-heart-beat (current-seconds))
)
(define (make-and-init-bigdata)
(set! *bdat*
(make-bdat)))
;; (define home (getenv "HOME"))
|