Fix bug: use atom delimiters instead of symbol-constituents.

Proper handling of parser character sets needs review.

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 8b90445fcf9432d0004dd98a67427d09bf5fbd4d..e6abeac4094a77212b23385865acefb6e3a0267f 100644 (file)
--- a/src/runtime/parse.scm
+++ b/src/runtime/parse.scm
@@ -503,7 +503,8 @@ USA.
        (error:illegal-number string))))
 
 (define (parse-atom port db prefix)
-  (let ((port* (open-output-string)))
+  (let ((port* (open-output-string))
+       (atom-delimiters (db-atom-delimiters db)))
 
     (define (%peek)
       (if (pair? prefix)
@@ -529,7 +530,7 @@ USA.
     (let loop ()
       (let ((char (%peek)))
        (if (or (eof-object? char)
-               (not (char-in-set? char char-set:symbol-constituent)))
+               (char-in-set? char atom-delimiters))
            (get-output-string port*)
            (begin
              (%discard)