From 63b676b1ba54d3b4e82c5f1afba0a2dee5757087 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Wed, 26 Feb 2020 21:02:44 +0100 Subject: [PATCH] networks: Remove an extra call to booleanize-state. --- networks.rkt | 2 -- 1 file changed, 2 deletions(-) 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))