diff options
| author | Arun Isaac | 2023-02-04 14:33:20 +0000 |
|---|---|---|
| committer | Arun Isaac | 2023-02-04 14:33:20 +0000 |
| commit | 274a99aa32d45bbdd769ebb84672765da50acc71 (patch) | |
| tree | f8759c4d46f1349af3a4d8de5a13e4f1647eb70e | |
| parent | 58ecb7f3b5c14ce17e1fe83f9b127ee400f311da (diff) | |
| download | tissue-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.scm | 1 |
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))))) |