diff options
| -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") |