Overview
| Comment: | Switch some missed require stml to use stml2 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-debugging-update-orig |
| Files: | files | file ages | folders |
| SHA1: |
132a2cd58ea4af198ba6a331f703ce44 |
| User & Date: | matt on 2021-09-07 19:29:05 |
| Other Links: | branch diff | manifest | tags |
Context
|
2021-09-07
| ||
| 19:40 | merged-fork check-in: 1059bb1046 user: matt tags: v1.65-debugging-update-orig | |
| 19:29 | Switch some missed require stml to use stml2 check-in: 132a2cd58e user: matt tags: v1.65-debugging-update-orig | |
|
2021-09-03
| ||
| 08:30 | Updates to debugging section in manual check-in: 8e72fb284e user: matt tags: v1.65-debugging-update-orig | |
Changes
Modified http-transport.scm from [8b77952676] to [92b19b8dad].
| ︙ | ︙ | |||
38 39 40 41 42 43 44 | (declare (uses portlogger)) (declare (uses rmt)) (include "common_records.scm") (include "db_records.scm") (include "js-path.scm") | | | 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))
|
| ︙ | ︙ |
Modified mtut.scm from [413cf26858] to [cc88551c71].
| ︙ | ︙ | |||
33 34 35 36 37 38 39 | (declare (uses configf)) ;; (declare (uses rmt)) (use ducttape-lib) (include "megatest-fossil-hash.scm") | | | 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | (declare (uses configf)) ;; (declare (uses rmt)) (use ducttape-lib) (include "megatest-fossil-hash.scm") (use stml2) ;; stuff for the mapper and checker functions ;; (define *target-mappers* (make-hash-table)) (define *runname-mappers* (make-hash-table)) (define *area-checkers* (make-hash-table)) |
| ︙ | ︙ |
Modified tests.scm from [698654fba2] to [8b856ef5fd].
| ︙ | ︙ | |||
32 33 34 35 36 37 38 | (declare (uses runconfig)) ;; (declare (uses sdb)) (declare (uses server)) ;;(declare (uses stml2)) (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils) (import (prefix sqlite3 sqlite3:)) | | | 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 | (declare (uses runconfig)) ;; (declare (uses sdb)) (declare (uses server)) ;;(declare (uses stml2)) (use sqlite3 srfi-1 posix regex regex-case srfi-69 dot-locking tcp directory-utils) (import (prefix sqlite3 sqlite3:)) (use stml2) (include "common_records.scm") (include "key_records.scm") (include "db_records.scm") (include "run_records.scm") (include "test_records.scm") (include "js-path.scm") |
| ︙ | ︙ |