From 87dc89ee6f42892ae395838a769d8f4c63fd07c8 Mon Sep 17 00:00:00 2001 From: Sergiu Ivanov Date: Tue, 24 Mar 2020 23:38:07 +0100 Subject: [PATCH] rs: Actually remove the macros. --- rs.rkt | 12 ------------ 1 file changed, 12 deletions(-) diff --git a/rs.rkt b/rs.rkt index 10bb8c8..bb19216 100644 --- a/rs.rkt +++ b/rs.rkt @@ -105,16 +105,10 @@ ;;; Reads a reaction system from an Org-mode style string. (define read-org-rs (compose ht-str-triples->rs read-org-variable-mapping)) -;;; A synonym for read-org-rs. -(define-syntax-rule (unorg-rs str) (read-org-rs str)) - ;;; Reads a context sequence from an Org sexp corresponding to a list. (define (read-context-sequence str) (map (compose list->set read-symbol-list) (flatten (read-org-sexp str)))) -;;; A shortcut to read-context-sequence. -(define-syntax-rule (read-ctx str) (read-context-sequence str)) - ;;; Converts a reaction to a triple of strings. (define/match (reaction->str-triple r) [((reaction r i p)) @@ -127,9 +121,6 @@ (for/hash ([(a r) (in-hash rs)]) (values a (reaction->str-triple r)))) -;;; A shortcut for rs->ht-str-triples. -(define-syntax-rule (org-rs rs) (rs->ht-str-triples rs)) - ;;; ============================ ;;; Dynamics of reaction systems @@ -207,6 +198,3 @@ ;;; Pretty prints the state graph of a reaction system. (define (pretty-print-state-graph sgr) (update-graph sgr #:v-func pretty-print-state #:e-func pretty-print-set-sets)) - -;;; A shortcut for pretty-print-state-graph. -(define-syntax-rule (ppsg sgr) (pretty-print-state-graph sgr))