(begin (fn-updattr (car ires) a (cadr ires))
(notify a (cdr (assq (car ires) fnetnodes)))))))))
(dc-loop-reg ".notify" 601 (lambda (r er) (let* ((ires (dc-intresp r))
(begin (fn-updattr (car ires) a (cadr ires))
(notify a (cdr (assq (car ires) fnetnodes)))))))))
(dc-loop-reg ".notify" 601 (lambda (r er) (let* ((ires (dc-intresp r))