From cd00e2a4d42f43ac21be11cc197f542b156afa6a Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Thu, 28 May 2020 00:49:29 +0200 Subject: [PATCH] networks: Redefine ppsg and ppsgb as functions and export them. --- networks.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/networks.rkt b/networks.rkt index 84e7deb..0354534 100644 --- a/networks.rkt +++ b/networks.rkt @@ -55,7 +55,9 @@ [pretty-print-boolean-state (-> state? string?)] [pretty-print-state-graph-with (-> graph? (-> state? string?) graph?)] [pretty-print-state-graph (-> graph? graph?)] + [ppsg (-> graph? graph?)] [pretty-print-boolean-state-graph (-> graph? graph?)] + [ppsgb (-> graph? graph?)] [build-full-boolean-state-graph (-> dynamics? graph?)] [build-full-boolean-state-graph-annotated (-> dynamics? graph?)] [tabulate-state (->* (procedure? domain-mapping/c) (#:headers boolean?) @@ -590,14 +592,14 @@ (pretty-print-state-graph-with gr pretty-print-state)) ;;; A shortcut for pretty-print-state-graph. -(define-syntax-rule (ppsg gr) (pretty-print-state-graph gr)) +(define ppsg pretty-print-state-graph) ;;; Pretty prints a state graph with pretty-print-boolean-state. (define (pretty-print-boolean-state-graph gr) (pretty-print-state-graph-with gr pretty-print-boolean-state)) ;;; A shortcut for pretty-print-boolean-state-graph. -(define-syntax-rule (ppsgb gr) (pretty-print-boolean-state-graph gr)) +(define ppsgb pretty-print-boolean-state-graph) ;;; Builds the full state graph of a Boolean network. (define (build-full-boolean-state-graph dyn)