networks: Don't use tabulate-boolean-network.

This commit is contained in:
Sergiu Ivanov 2020-11-22 22:08:45 +01:00
parent e4751c6ed2
commit b38adc89cf

View file

@ -1034,7 +1034,7 @@
(check-equal? (tabulate-state/boolean f '(x1 x2) #:headers #f)
'((#f #f #f) (#f #t #f) (#t #f #t) (#t #t #t)))
(define bn (random-boolean-network/vars 3))
(check-equal? (tabulate-boolean-network bn)
(check-equal? (tabulate-network bn)
'((x0 x1 x2 f-x0 f-x1 f-x2)
(#f #f #f #f #t #f)
(#f #f #t #t #f #f)