Fix stupid typo in reader.

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index 5e5c28bf9770d9d90a94198bf25708c08d1a6b5d..116f33919f049b906942e3b19660f70e3edbd9c9 100644 (file)
--- 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))