- (ua (lambda (r a) (let ((ires (dc-intresp r)))
- (fn-updattr (car ires) a (cadr ires))
- (notify a (cdr (assq (car ires) fnetnodes)))))))
+ (ua (lambda (r a) (let ((ires (dc-intresp r))
+ (hubform (assq (car ires) fnetnodes)))
+ (if hubform
+ (begin (fn-updattr (car ires) a (cadr ires))
+ (notify a (cdr (assq (car ires) fnetnodes)))))))))