networks: Bug in update.

This commit is contained in:
Sergiu Ivanov 2020-11-22 22:44:04 +01:00
parent eb3e851a9d
commit 3abf548ac2

View file

@ -204,7 +204,7 @@
(define (update network s xs)
(define funcs (network-functions network))
(for/hash ([x xs])
(x ((hash-ref funcs x) s))))
(values x ((hash-ref funcs x) s))))
(module+ test
(test-case "basic definitions"