Megatest

Differences From Artifact [2202b22e9f]:

• File attic/http-transport.scm — part of check-in [101ee7c52b] at 2021-03-06 04:39:46 on branch v1.65-real-chicken-5 — Try a grounds-up switch to chicken-5 (user: matt, size: 33246) [annotate] [blame] [check-ins using]
• File http-transport.scm — part of check-in [70f5d2ff31] at 2021-01-28 18:40:38 on branch v1.6569-refactor-server-key-chk — fixes to crashes with server id mismatch (user: pjhatwal, size: 33246) [annotate] [blame] [check-ins using]

To Artifact [1dd5b55f0c]:

• File http-transport.scm — part of check-in [1d5521b5a2] at 2022-02-17 10:19:40 on branch v1.65 — Merged manual updates on debugging. (user: mrwellan, size: 33235) [annotate] [blame] [check-ins using]

38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

(declare (uses portlogger))
(declare (uses rmt))

(include "common_records.scm")
(include "db_records.scm")
(include "js-path.scm")

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

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

|

38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

(declare (uses portlogger))
(declare (uses rmt))

(include "common_records.scm")
(include "db_records.scm")
(include "js-path.scm")

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

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