(begin (set-cdr! (assq hub connlist) (car ir))
(logf "~a state syn (~a)" (cadr hub) (car ir)))
(begin (set! connlist (delq (assq hub connlist) connlist))
(begin (set-cdr! (assq hub connlist) (car ir))
(logf "~a state syn (~a)" (cadr hub) (car ir)))
(begin (set! connlist (delq (assq hub connlist) connlist))