66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
(declare (uses transport))
(import transport)
(include "common_records.scm")
(include "db_records.scm")
;; (include "js-path.scm")
;; (require-library stml)
;; (define *server-loop-heart-beat* (current-seconds))
;;======================================================================
;; S E R V E R
|
>
>
|
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
|
(declare (uses transport))
(import transport)
(include "common_records.scm")
(include "db_records.scm")
;; (include "js-path.scm")
;; (require-library stml)
;; (require-library stml)
;; (define *server-loop-heart-beat* (current-seconds))
;;======================================================================
;; S E R V E R
|