Overview
| Comment: | change message from error to info |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-experiment |
| Files: | files | file ages | folders |
| SHA1: |
523dbf02c4a9c103243e5e0784a80f95 |
| User & Date: | mmgraham on 2020-09-10 18:15:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-09-11
| ||
| 13:06 | commented out a print that was breaking lpeqa tests Closed-Leaf check-in: 88d54d16bf user: mmgraham tags: v1.65-experiment | |
|
2020-09-10
| ||
| 18:15 | change message from error to info check-in: 523dbf02c4 user: mmgraham tags: v1.65-experiment | |
|
2020-09-07
| ||
| 21:02 | merged with v1.65-cleanup check-in: e373dd2861 user: mmgraham tags: v1.6568, v1.65-experiment | |
Changes
Modified common.scm from [e271de7a8e] to [031e02547b].
| ︙ | ︙ | |||
565 566 567 568 569 570 571 | (lambda (a b) (< (hash-table-ref all-files a)(hash-table-ref all-files b)))) (- num-logs max-allowed)))) (for-each (lambda (file) (let* ((fullname (conc "logs/" file))) (if (directory? fullname) | | | 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 | (lambda (a b) (< (hash-table-ref all-files a)(hash-table-ref all-files b)))) (- num-logs max-allowed)))) (for-each (lambda (file) (let* ((fullname (conc "logs/" file))) (if (directory? fullname) (debug:print-info 0 *default-log-port* fullname " in logs directory is a directory! Cannot rotate it, it is best to not put subdirectories in the logs dir.") (handle-exceptions exn (debug:print-error 0 *default-log-port* "failed to remove " fullname ", exn=" exn) (delete-file* fullname))))) files) (debug:print-info 0 *default-log-port* "Deleted " (length files) " files from logs, keeping " max-allowed " files.")))))) |
| ︙ | ︙ |