From 3992015ed7b7104e879633475720ac28396d64aa Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Tue, 17 May 2022 15:42:47 -0300
Subject: src/xyz/euandreh/heredoc.scm: Rename (heredoc-reader ...) to (reader
 ...)

---
 src/xyz/euandreh/heredoc.scm | 2 +-
 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")
-- 
cgit v1.2.3