134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
)
;; parameters
;;
(define tt-server-timeout-param (make-parameter 600))
;; make ttdat visible
(define *server-info* #f)
(define *server-run* #t)
(define (tt:make-remote areapath)
(make-tt areapath: areapath))
;; 1 ... or #f
;; and check that dbfname matches. FIXME: the propagation of dbfname and run-id
|
|
|
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
|
)
;; parameters
;;
(define tt-server-timeout-param (make-parameter 600))
;; make ttdat visible
;; (define *server-info* #f) ;; get this from commonmod
(define *server-run* #t)
(define (tt:make-remote areapath)
(make-tt areapath: areapath))
;; 1 ... or #f
;; and check that dbfname matches. FIXME: the propagation of dbfname and run-id
|