From cfe710e6b2200cafdd85aaeb73dbebaeb726acad Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sun, 22 Nov 2020 00:08:46 +0100 Subject: [PATCH] network: Don't use make-network-from-functions in basic definitions. --- networks.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/networks.rkt b/networks.rkt index 7f8850f..344fc53 100644 --- a/networks.rkt +++ b/networks.rkt @@ -192,7 +192,7 @@ (and x1 (not x2))))) (define f2 (λ (s) (let ([x2 (hash-ref s 'x2)]) (not x2)))) - (define bn (make-network-from-functions `((x1 . ,f1) (x2 . ,f2)))) + (define bn (hash 'x1 f1 'x2 f2)) (define s1 (make-state '((x1 . #t) (x2 . #f)))) (define new-s1 (update bn s1 '(x2 x1))) (define s2 (make-state '((x1 . #f) (x2 . #f))))