Dolda2000 GitWeb
/
doldaconnect.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix let form.
[doldaconnect.git]
/
lib
/
guile
/
dolcon
/
util.scm
diff --git
a/lib/guile/dolcon/util.scm
b/lib/guile/dolcon/util.scm
index
57eb635
..
2f0af54
100644
(file)
--- a/
lib/guile/dolcon/util.scm
+++ b/
lib/guile/dolcon/util.scm
@@
-58,8
+58,8
@@
(lambda ()
(dc-fn-update)
(let* ((notify (lambda (event data) (for-each (lambda (o) (if (eq? event (car o)) ((cadr o) data))) fn-procs)))
(lambda ()
(dc-fn-update)
(let* ((notify (lambda (event data) (for-each (lambda (o) (if (eq? event (car o)) ((cadr o) data))) fn-procs)))
- (ua (lambda (r a) (let ((ires (dc-intresp r))
- (hubform (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)))))))))
(if hubform
(begin (fn-updattr (car ires) a (cadr ires))
(notify a (cdr (assq (car ires) fnetnodes)))))))))