+ (catch 'system-error
+ (lambda ()
+ (let ((mtime (stat:mtime (stat hl-file))))
+ (if (> mtime hl-mtime)
+ (let* ((delta (list-delta hublist (read-hl)))
+ (same (car delta))
+ (del (cadr delta))
+ (new (caddr delta)))
+ (for-each (lambda (o)
+ (let ((el (assq o connlist)))
+ (if el
+ (begin (if (not (eq? (cdr el) 'pend))
+ (dc-qcmd (list "dcnct" (cdr el))))
+ (set! connlist (delq el connlist))))))
+ del)
+ (set! hublist (append (map (lambda (o) (car o)) same) new))
+ (set! hl-mtime mtime)))))
+ (lambda (key . args) '()))