521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
|
(if (number? newval)
(set! freespc newval))))))
(car df-results))
freespc))
;; paths is list of lists ((name path) ... )
;;
(define (common:get-disk-with-most-free-space disks minspace)
(let ((best #f)
(bestsize 0))
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
(freespc (cond
((not (directory? dirpath))
|
|
|
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
|
(if (number? newval)
(set! freespc newval))))))
(car df-results))
freespc))
;; paths is list of lists ((name path) ... )
;;
(define (common:get-disk-with-most-free-space disks minsize)
(let ((best #f)
(bestsize 0))
(for-each
(lambda (disk-num)
(let* ((dirpath (cadr (assoc disk-num disks)))
(freespc (cond
((not (directory? dirpath))
|