networks: Bug in update.
This commit is contained in:
parent
eb3e851a9d
commit
3abf548ac2
1 changed files with 1 additions and 1 deletions
|
@ -204,7 +204,7 @@
|
||||||
(define (update network s xs)
|
(define (update network s xs)
|
||||||
(define funcs (network-functions network))
|
(define funcs (network-functions network))
|
||||||
(for/hash ([x xs])
|
(for/hash ([x xs])
|
||||||
(x ((hash-ref funcs x) s))))
|
(values x ((hash-ref funcs x) s))))
|
||||||
|
|
||||||
(module+ test
|
(module+ test
|
||||||
(test-case "basic definitions"
|
(test-case "basic definitions"
|
||||||
|
|
Loading…
Reference in a new issue