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-Tag: mit-scheme-pucked-10.1.12~7^2~10
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f0b35772f18b6649fbae4548c78fe71f60fc59e7;p=mit-scheme.git

Fix stupid typo in reader.
---

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))