diff --git a/networks.rkt b/networks.rkt index 951a4b8..0be4950 100644 --- a/networks.rkt +++ b/networks.rkt @@ -26,7 +26,6 @@ [make-state (-> (listof (cons/c symbol? any/c)) state?)] [make-state-booleanize (-> (listof (cons/c symbol? (or/c 0 1))) state?)] [booleanize-state (-> state? state?)] - [make-network-from-functions (-> (listof (cons/c symbol? update-function/c)) network?)] [update-function-form->update-function (-> update-function-form? update-function/c)] [network-form->network (-> network-form? network?)] [make-network-from-forms (-> (listof (cons/c symbol? update-function-form?)) @@ -228,9 +227,6 @@ (define (booleanize-state s) (for/hash ([(x val) s]) (match val [0 (values x #f)] [1 (values x #t)]))) -;;; A version of make-immutable-hash restricted to creating networks. -(define (make-network-from-functions funcs) (make-immutable-hash funcs)) - ;;; ================================= ;;; Syntactic description of networks