From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 9 Jul 2019 23:53:32 +0000 (-0400)
Subject: Fix stupid typo in reader.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ddba4e6d835e6b042ff7c84878730b66f59aa433;p=mit-scheme.git

Fix stupid typo in reader.
---

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index a464e19e1..8eb447028 100644
--- a/src/runtime/reader.scm
+++ b/src/runtime/reader.scm
@@ -566,7 +566,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))