summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2023-02-04 14:33:20 +0000
committerArun Isaac2023-02-04 14:33:20 +0000
commit274a99aa32d45bbdd769ebb84672765da50acc71 (patch)
treef8759c4d46f1349af3a4d8de5a13e4f1647eb70e
parent58ecb7f3b5c14ce17e1fe83f9b127ee400f311da (diff)
downloadtissue-274a99aa32d45bbdd769ebb84672765da50acc71.tar.gz
tissue-274a99aa32d45bbdd769ebb84672765da50acc71.tar.lz
tissue-274a99aa32d45bbdd769ebb84672765da50acc71.zip
skribilo: Check if node has identifier.
* tissue/skribilo.scm (document-node): Check if node has identifier before comparing that identifier.
-rw-r--r--tissue/skribilo.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/tissue/skribilo.scm b/tissue/skribilo.scm
index b17b30d..8a0a929 100644
--- a/tissue/skribilo.scm
+++ b/tissue/skribilo.scm
@@ -43,6 +43,7 @@
@var{reader-name}."
(find1-down (lambda (node)
(and (is-a? node <markup>)
+ (markup-ident node)
(string=? (markup-ident node) identifier)))
(call-with-input-file file
(cut evaluate-ast-from-port <> #:reader (make-reader reader-name)))))