From c7da65ad0b12b9600a01e9ae3a954e57b54b2c98 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?=
 <dominik.pantucek@trustica.cz>
Date: Mon, 15 May 2023 19:46:16 +0200
Subject: [PATCH] Fix number of loop bindings.

---
 src/listing.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/listing.scm b/src/listing.scm
index fae2f82..a6dfcba 100644
--- a/src/listing.scm
+++ b/src/listing.scm
@@ -210,7 +210,8 @@
 	       (loop (cdr lines)
 		     (+ number 1)
 		     printed-something
-		     #f))))))
+		     #f
+		     rtbl))))))
 
  ;; Performs self-tests of the listing module.
  (define (listing-tests!)