From b659b23eb0cb46fac9e85b8bc21222ec5f2ae207 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 11 Feb 2017 00:32:12 -0800
Subject: [PATCH] Fix bug: use atom delimiters instead of symbol-constituents.

Proper handling of parser character sets needs review.
---
 src/runtime/parse.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm
index 8b90445fc..e6abeac40 100644
--- 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)
-- 
2.25.1