Megatest

Differences From Artifact [4218b5f3d9]:

• File server.scm — part of check-in [1dabfeb322] at 2021-02-25 15:49:39 on branch v1.6569-newdiet — Sort danglers by name if same count. Few more orpaned functions commented out From: 4f82003dc0af1a95e10a23cc60a91b9b5ce9b461 User: matt (user: matt, size: 40648) [annotate] [blame] [check-ins using]

To Artifact [53d68f7e36]:

• File server.scm — part of check-in [433155d663] at 2021-02-25 15:50:27 on branch v1.6569-newdiet — Moved sauth files to subdir. Improved show-uncalled-procedures output. Removed few unused procedures. From: c9e2628a917d4690ad4ffc35a95f5d5000c90cc5 User: matt (user: matt, size: 40650) [annotate] [blame] [check-ins using]

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

;;(declare (uses rpc-transport))
(declare (uses launch))
;; (declare (uses daemon))

(include "common_records.scm")
(include "db_records.scm")

(define (server:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))

(define  *server-loop-heart-beat* (current-seconds))

;;======================================================================

|

33
34
35
36
37
38
39
40
41
42
43
44
45
46
47

;;(declare (uses rpc-transport))
(declare (uses launch))
;; (declare (uses daemon))

(include "common_records.scm")
(include "db_records.scm")

#;(define (server:make-server-url hostport)
  (if (not hostport)
      #f
      (conc "http://" (car hostport) ":" (cadr hostport))))

(define  *server-loop-heart-beat* (current-seconds))

;;======================================================================