diff options
Diffstat (limited to 'src/xyz/euandreh/heredoc.scm')
| -rw-r--r-- | src/xyz/euandreh/heredoc.scm | 7 |
1 files changed, 6 insertions, 1 deletions
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)))) |