diff options
| author | Arun Isaac | 2022-04-08 23:52:55 +0530 |
|---|---|---|
| committer | Arun Isaac | 2022-04-08 23:52:55 +0530 |
| commit | 2143f500fe9b9a99c42a75a5915870590d6395f0 (patch) | |
| tree | 195d53caca090513671ae6f9a7eb60ef2317bf8d | |
| parent | b308de7b6b1b9dea9371b3e03e0fd4766f681539 (diff) | |
| download | guix-forge-2143f500fe9b9a99c42a75a5915870590d6395f0.tar.gz guix-forge-2143f500fe9b9a99c42a75a5915870590d6395f0.tar.lz guix-forge-2143f500fe9b9a99c42a75a5915870590d6395f0.zip | |
doc: Create dummy G-expression reader.
* doc/skribilo.scm: Extend the reader with a dummy G-expression
reader.
| -rw-r--r-- | doc/skribilo.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/doc/skribilo.scm b/doc/skribilo.scm index 361bebe..1025db4 100644 --- a/doc/skribilo.scm +++ b/doc/skribilo.scm @@ -65,6 +65,10 @@ ,@(the-options opts #:ident #:class #:short #:long))) (body (the-body opts)))) +;; Create a dummy G-expression reader to avoid reader errors when +;; reading source files for source-ref, record-documentation, etc. +(read-hash-extend #\~ (const #t)) + ;; S-exp source links (define (source-uri file start-line end-line) "Return a URI referring to source FILE from START-LINE to END-LINE." |