read-context-sequence: Replace read-org-sexp by string->any.

read-org-sexp changed a couple commits earlier, so it doesn't work in
the same way as before in read-context-sequence.
This commit is contained in:
Sergiu Ivanov 2020-05-16 00:16:44 +02:00
parent c5d2ff629c
commit 8dbeaa9e55

2
rs.rkt
View file

@ -107,7 +107,7 @@
;;; 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))))
(map (compose list->set read-symbol-list) (flatten (string->any str))))
;;; Converts a reaction to a triple of strings.
(define/match (reaction->str-triple r)