106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
(servinf-file #f)
(last-serv-start 0)
)
;; parameters
;;
(define tt-server-timeout-param (make-parameter 600))
(define tt-server-profile-string (make-parameter ""))
|
<
|
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
(servinf-file #f)
(last-serv-start 0)
)
;; parameters
;;
(define tt-server-timeout-param (make-parameter 600))
;; make ttdat visible
(define *server-info* #f)
(define (tt:make-remote areapath)
(make-tt areapath: areapath))
|