From f0b35772f18b6649fbae4548c78fe71f60fc59e7 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Jul 2019 19:53:32 -0400
Subject: [PATCH] Fix stupid typo in reader.

---
 src/runtime/reader.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index 5e5c28bf9..116f33919 100644
--- a/src/runtime/reader.scm
+++ b/src/runtime/reader.scm
@@ -564,7 +564,7 @@ USA.
 
 (define (handler:close-bracket db ctx char)
   db
-  (if (close-bracket-ok? ctx)
+  (if (not (close-bracket-ok? ctx))
       (error:unbalanced-close char))
   (close-bracket-token))
 
-- 
2.25.1