scolobb/dds
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

rs: Actually remove the macros.

Browse source
This commit is contained in:
Sergiu Ivanov 2020-03-24 23:38:07 +01:00
parent 14688a9bae
commit 87dc89ee6f
1 changed files with 0 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
rs.rkt
View file

@ -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))