networks: Make network and network-form transparent.

This commit is contained in:
Sergiu Ivanov 2020-11-22 22:38:45 +01:00
parent ff6fa2c88b
commit eb3e851a9d

View file

@ -183,7 +183,7 @@
;;; The domain mapping does not have to assign domains to all
;;; variables (e.g., it may be empty), but in this case the functions
;;; which need to know the domains will not work.
(struct network (functions domains))
(struct network (functions domains) #:transparent)
;;; Builds a network from a given hash table assigning functions to
;;; variables by attributing Boolean domains to every variable.
@ -264,7 +264,7 @@
;;; The domain mapping does not have to assign domains to all
;;; variables (e.g., it may be empty), but in this case the functions
;;; which need to know the domains will not work.
(struct network-form (forms domains))
(struct network-form (forms domains) #:transparent)
;;; Build an update function from an update function form.
(define (update-function-form->update-function form)