From 692ce4a0f798d533456d51451018d975fc809788 Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 17 May 2022 15:43:13 -0300
Subject: src/xyz/euandreh/heredoc.scm: Add (enable-syntax) macro

---
 src/xyz/euandreh/heredoc.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/xyz/euandreh/heredoc.scm b/src/xyz/euandreh/heredoc.scm
index 028e59c..ba7b727 100644
--- a/src/xyz/euandreh/heredoc.scm
+++ b/src/xyz/euandreh/heredoc.scm
@@ -1,6 +1,7 @@
 (define-module (xyz euandreh heredoc)
   #:use-module ((srfi srfi-1) #:prefix s1:)
-  #:export (heredoc-reader))
+  #:export (reader
+            enable-syntax))
 
 (define consumable-chars
   '(#\space #\tab))
@@ -95,3 +96,7 @@
         (if should-trim?
           (trim-indentation s)
           s)))))
+
+(define-macro (enable-syntax)
+  `(eval-when (expand load eval)
+     (read-hash-extend #\" (@ (xyz euandreh heredoc) reader))))
-- 
cgit v1.2.3