From eb3e851a9d9be08d76bfe8b98bb054481315887b Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Sun, 22 Nov 2020 22:38:45 +0100 Subject: [PATCH] networks: Make network and network-form transparent. --- networks.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/networks.rkt b/networks.rkt index bb32b4c..482cc94 100644 --- a/networks.rkt +++ b/networks.rkt @@ -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)