Overview
| Comment: | Decrease notification rate on some messages |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
ea28efec2e16fe6300239239424fc0e2 |
| User & Date: | matt on 2016-05-13 00:22:47 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-05-13
| ||
| 00:37 | Added more instrumentation to help debug the test2 issue check-in: eabab4fa80 user: matt tags: v1.61 | |
| 00:22 | Decrease notification rate on some messages check-in: ea28efec2e user: matt tags: v1.61 | |
| 00:06 | minor improvements to debugger check-in: 28c2958fa3 user: matt tags: v1.61 | |
Changes
Modified common.scm from [7b10355f34] to [ba84b1bce0].
| ︙ | ︙ | |||
787 788 789 790 791 792 793 |
(let ((best #f)
(bestsize 0))
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
(freespc (cond
((not (directory? dirpath))
| | | | | 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 |
(let ((best #f)
(bestsize 0))
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
(freespc (cond
((not (directory? dirpath))
(if (common:low-noise-print 300 "disks not a dir " disk-num)
(debug:print 0 "WARNING: disk " disk-num " at path \"" dirpath "\" is not a directory - ignoring it."))
-1)
((not (file-write-access? dirpath))
(if (common:low-noise-print 300 "disks not writeable " disk-num)
(debug:print 0 "WARNING: disk " disk-num " at path \"" dirpath "\" is not writeable - ignoring it."))
-1)
((not (eq? (string-ref dirpath 0) #\/))
(if (common:low-noise-print 300 "disks not a proper path " disk-num)
(debug:print 0 "WARNING: disk " disk-num " at path \"" dirpath "\" is not a fully qualified path - ignoring it."))
-1)
(else
(get-df dirpath)))))
(if (> freespc bestsize)
(begin
(set! best (cons disk-num dirpath))
|
| ︙ | ︙ |