From 08577fa7c11e4c33ef3f0b04909130ff2a14d0d0 Mon Sep 17 00:00:00 2001
From: Lassi Kortela <lassi@lassi.io>
Date: Thu, 28 Mar 2019 12:36:18 +0200
Subject: [PATCH] Remove commented-out debug code

---
 read-char-if.scm | 6 +-----
 tex-parser.scm   | 8 +++-----
 2 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/read-char-if.scm b/read-char-if.scm
index 2fe812e..b31890a 100644
--- a/read-char-if.scm
+++ b/read-char-if.scm
@@ -4,12 +4,8 @@
         (else #f)))
 
 (define (read-char? k)
-  ;;(fprintf (current-error-port) "read-char? ~a~%" k)
   (and (match-char? k (peek-char))
-       (begin (let ((char (read-char)))
-                ;;(display char (current-error-port))
-                ;;(newline (current-error-port))
-                char))))
+       (begin (read-char))))
 
 (define (read-char* k)
   (let* ((first-char (read-char? k))
diff --git a/tex-parser.scm b/tex-parser.scm
index 7da39b0..28b41b3 100644
--- a/tex-parser.scm
+++ b/tex-parser.scm
@@ -30,11 +30,9 @@
     (if (read-char? sentinel)
         things
         (let ((thing (read-tex-thing)))
-          (cond ((not thing)
-                 things)
-                (else
-                 ;;(fprintf (current-error-port) "Read thing: ~a~%" thing)
-                 (loop (append things (list thing)))))))))
+          (if (not thing)
+              things
+              (loop (append things (list thing))))))))
 
 (define (read-tex-document)
   (read-tex-until eof-object?))