From 2143f500fe9b9a99c42a75a5915870590d6395f0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 8 Apr 2022 23:52:55 +0530
Subject: doc: Create dummy G-expression reader.

* doc/skribilo.scm: Extend the reader with a dummy G-expression
reader.
---
 doc/skribilo.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'doc/skribilo.scm')

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."
-- 
cgit v1.2.3