Megatest

Differences From Artifact [8b77952676]:

• File http-transport.scm — part of check-in [709d4974b2] at 2020-12-17 14:05:28 on branch v1.65 — Turn back on aborting of server starts when there are enough running and use at to move them out of the way 10 minutes after they are created. (user: mrwellan, size: 32426) [annotate] [blame] [check-ins using] [more...]

To Artifact [92b19b8dad]:

• File http-transport.scm — part of check-in [132a2cd58e] at 2021-09-07 19:29:05 on branch v1.65-debugging-update-orig — Switch some missed require stml to use stml2 (user: matt, size: 32415) [annotate] [blame] [check-ins using] [more...]

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))