diff --git a/rs.rkt b/rs.rkt index 03a8462..38ecfdd 100644 --- a/rs.rkt +++ b/rs.rkt @@ -103,8 +103,8 @@ (for/hash ([(a triple) (in-hash ht)]) (values a (str-triple->reaction triple)))) -;;; Chains ht-str-triples->rs with unorg. -(define-syntax-rule (unorg-rs str) (ht-str-triples->rs (unorg str))) +;;; Chains ht-str-triples->rs with read-org-variable-mapping. +(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. (define (read-context-sequence str)