diff --git a/networks.rkt b/networks.rkt index 040a6ae..2edb27b 100644 --- a/networks.rkt +++ b/networks.rkt @@ -72,14 +72,14 @@ (hash-set! new-s x (f s)))) new-s)) -;;; A version of make-hash restricted to creating network states (see -;;; contract). +;;; A version of make-immutable-hash restricted to creating network +;;; states (see contract). (define (make-state mappings) (make-immutable-hash mappings)) ;;; A shortcut for make-state. (define-syntax-rule (st mappings) (make-state mappings)) -;;; A version of make-hash restricted to creating networks. +;;; A version of make-immutable-hash restricted to creating networks. (define (make-network-from-functions funcs) (make-immutable-hash funcs))