Overview
| Comment: | Fixed typo (cherrypick) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
e106a99b30bb4612c035743b911c4082 |
| User & Date: | mrwellan on 2022-02-17 12:13:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2022-02-17
| ||
| 16:20 | Fixed few things broken by the cherrypicks check-in: b4346350c4 user: mrwellan tags: v1.65 | |
| 12:13 | Fixed typo (cherrypick) check-in: e106a99b30 user: mrwellan tags: v1.65 | |
| 10:19 | Merged manual updates on debugging. check-in: 1d5521b5a2 user: mrwellan tags: v1.65 | |
Changes
Modified tests.scm from [4f9f2f84f7] to [2a8df5b115].
| ︙ | ︙ | |||
908 909 910 911 912 913 914 | (tests:dashboard-body page pg-size keys numkeys total-runs linktree area-name get-prev-links get-next-links #f run-patt target-patt)) ;; update this function (close-output-port oup) ; (set! page (+ 1 page)) (if (> total-runs (* (+ 1 page) pg-size)) (loop (+ 1 page))))) (common:simple-file-release-lock lockfile)) (begin | | | 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 |
(tests:dashboard-body page pg-size keys numkeys total-runs linktree area-name get-prev-links get-next-links #f run-patt target-patt)) ;; update this function
(close-output-port oup)
; (set! page (+ 1 page))
(if (> total-runs (* (+ 1 page) pg-size))
(loop (+ 1 page)))))
(common:simple-file-release-lock lockfile))
(begin
(debug:print 0 *default-log-port* "Failed to get lock on file outf, lockfile: " lockfile) #f))))
(define (tests:readlines filename)
(call-with-input-file filename
(lambda (p)
(let loop ((line (read-line p))
(result '()))
|
| ︙ | ︙ |