diff options
| author | EuAndreh <eu@euandre.org> | 2022-05-17 15:43:13 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-05-17 15:43:13 -0300 |
| commit | 692ce4a0f798d533456d51451018d975fc809788 (patch) | |
| tree | 49582a84aa162e72c97021ef6161068c0e6b66e0 | |
| parent | src/xyz/euandreh/heredoc.scm: Rename (heredoc-reader ...) to (reader ...) (diff) | |
| download | guile-heredoc-692ce4a0f798d533456d51451018d975fc809788.tar.gz guile-heredoc-692ce4a0f798d533456d51451018d975fc809788.tar.xz | |
src/xyz/euandreh/heredoc.scm: Add (enable-syntax) macro
| -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)))) |