networks: Remove an extra call to booleanize-state.
This commit is contained in:
parent
b53639839f
commit
63b676b1ba
1 changed files with 0 additions and 2 deletions
|
@ -113,8 +113,6 @@
|
|||
(define (booleanize-state s)
|
||||
(for/hash ([(x val) s]) (match val [0 (values x #f)] [1 (values x #t)])))
|
||||
|
||||
(booleanize-state (st '((a . 1) (b . 0))))
|
||||
|
||||
;;; A shortcut for make-state-booleanize.
|
||||
(define-syntax-rule (stb s) (booleanize-state s))
|
||||
|
||||
|
|
Loading…
Reference in a new issue