networks: Fix the comments for make-state and make-network-from-functions.
This commit is contained in:
parent
daf2e079ae
commit
5fd1b95d5c
1 changed files with 3 additions and 3 deletions
|
@ -72,14 +72,14 @@
|
||||||
(hash-set! new-s x (f s))))
|
(hash-set! new-s x (f s))))
|
||||||
new-s))
|
new-s))
|
||||||
|
|
||||||
;;; A version of make-hash restricted to creating network states (see
|
;;; A version of make-immutable-hash restricted to creating network
|
||||||
;;; contract).
|
;;; states (see contract).
|
||||||
(define (make-state mappings) (make-immutable-hash mappings))
|
(define (make-state mappings) (make-immutable-hash mappings))
|
||||||
|
|
||||||
;;; A shortcut for make-state.
|
;;; A shortcut for make-state.
|
||||||
(define-syntax-rule (st mappings) (make-state mappings))
|
(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))
|
(define (make-network-from-functions funcs) (make-immutable-hash funcs))
|
||||||
|
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue