diff options
| author | EuAndreh <eu@euandre.org> | 2022-05-17 15:42:47 -0300 |
|---|---|---|
| committer | EuAndreh <eu@euandre.org> | 2022-05-17 15:42:47 -0300 |
| commit | 3992015ed7b7104e879633475720ac28396d64aa (patch) | |
| tree | 8a6454cff4f79f9bfcfeb7c16b740c52e4277354 | |
| parent | Update references to src/heredoc.scm (diff) | |
| download | guile-heredoc-3992015ed7b7104e879633475720ac28396d64aa.tar.gz guile-heredoc-3992015ed7b7104e879633475720ac28396d64aa.tar.xz | |
src/xyz/euandreh/heredoc.scm: Rename (heredoc-reader ...) to (reader ...)
| -rw-r--r-- | src/xyz/euandreh/heredoc.scm | 2 | ||||
| -rw-r--r-- | tests/heredoc.scm | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/src/xyz/euandreh/heredoc.scm b/src/xyz/euandreh/heredoc.scm index be9408a..028e59c 100644 --- a/src/xyz/euandreh/heredoc.scm +++ b/src/xyz/euandreh/heredoc.scm @@ -56,7 +56,7 @@ chars))) (< 0 (length non-quote-chars)))) -(define (heredoc-reader _char port) +(define (reader _char port) (let ((should-trim? #f) (chars '())) (do ((curr (read-char port) diff --git a/tests/heredoc.scm b/tests/heredoc.scm index 3c0fb7b..e368119 100644 --- a/tests/heredoc.scm +++ b/tests/heredoc.scm @@ -221,8 +221,8 @@ exit $ret (non-quote-chars? '(#\a #\"))))) -(define (test-heredoc-reader) - (t:test-group "heredoc-reader" +(define (test-reader) + (t:test-group "reader" (t:test-equal "" #"" ""#) @@ -322,7 +322,7 @@ fi test-maximum-indentation test-trim-indentation test-non-quote-chars? - test-heredoc-reader)) + test-reader)) (define (main) (t:test-begin "heredoc") |