diff --git a/networks.rkt b/networks.rkt
index 374e394..c984b97 100644
--- a/networks.rkt
+++ b/networks.rkt
@@ -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))