Fix bug #62614.

diff --git a/src/runtime/reader.scm b/src/runtime/reader.scm
index 4a5e22a47c06f71b4bf040f97efda9189fba0695..b5b6bb50f23faaf327faa5d9ab634b6c569afbc9 100644 (file)
--- a/src/runtime/reader.scm
+++ b/src/runtime/reader.scm
@@ -796,14 +796,9 @@ USA.
          ((string-maybe-ci=? db name "default") (default-object))
          ((string-maybe-ci=? db name "unspecific") unspecific)
          ((string-maybe-ci=? db name "reclaimed") (gc-reclaimed-object))
-         ((string=? name "fold-case")
-          (set-db-fold-case! db #t)
-          continue-reading)
-         ((string=? name "no-fold-case")
-          (set-db-fold-case! db #f)
-          continue-reading)
-         (else
-          (error:illegal-named-constant name)))))
+         ((string=? name "fold-case") (set-db-fold-case! db #t))
+         ((string=? name "no-fold-case") (set-db-fold-case! db #f))
+         (else (error:illegal-named-constant name)))))
 
 (define (handler:uri db ctx char1 char2)
   ctx char1 char2