Fix stupid typo in reader.

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index a464e19e1337b033fc19ea71b911f01cb38d8585..8eb4470286a8977ecec815dc3e1342730f4178b1 100644 (file)
--- 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))