networks: Bug in update.

2020-11-22 22:44:04 +01:00 · 2020-11-22 22:44:04 +01:00 · 3abf548ac2
parent eb3e851a9d
commit 3abf548ac2
1 changed files with 1 additions and 1 deletions
--- a/networks.rkt
+++ b/networks.rkt
@ -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"