rs: Don't use unorg macros internally.

This commit is contained in:
Sergiu Ivanov 2020-03-24 21:20:08 +01:00
parent 502fcb18bb
commit 7f214266d0

4
rs.rkt
View file

@ -103,8 +103,8 @@
(for/hash ([(a triple) (in-hash ht)]) (for/hash ([(a triple) (in-hash ht)])
(values a (str-triple->reaction triple)))) (values a (str-triple->reaction triple))))
;;; Chains ht-str-triples->rs with unorg. ;;; Chains ht-str-triples->rs with read-org-variable-mapping.
(define-syntax-rule (unorg-rs str) (ht-str-triples->rs (unorg str))) (define-syntax-rule (unorg-rs str) (ht-str-triples->rs (read-org-variable-mapping str)))
;;; Reads a context sequence from an Org sexp corresponding to a list. ;;; Reads a context sequence from an Org sexp corresponding to a list.
(define (read-context-sequence str) (define (read-context-sequence str)