networks: Fix the tests for network-form->network.

2020-11-22 22:58:21 +01:00 · 2020-11-22 22:58:21 +01:00 · f016fbb0ca
parent 354fad2b1d
commit f016fbb0ca
1 changed files with 2 additions and 2 deletions
--- a/networks.rkt
+++ b/networks.rkt
@ -290,8 +290,8 @@
    (define bn (network-form->network
                (network-form (hash 'a '(and a b)
                                    'b '(not b))
-                              (hash 'a (#f #t)
-                                    'b (#f #t)))))
+                              (hash 'a '(#f #t)
+                                    'b '(#f #t)))))
    (define s (make-state '((a . #t) (b . #t))))
    (check-equal? ((hash-ref (network-functions bn) 'a) s) #t)))