From 7063130bb4f8275745aec3af1ac1546d072b207a Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 18 Mar 2017 19:13:29 -0700 Subject: [PATCH] More simplification. --- src/runtime/parse.scm | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/src/runtime/parse.scm b/src/runtime/parse.scm index 7881242f1..47d77e5a2 100644 --- a/src/runtime/parse.scm +++ b/src/runtime/parse.scm @@ -733,17 +733,11 @@ USA. (%atom-end? db)) char) ((char=? char #\x) - (let ((builder (string-builder))) - (let loop () - (if (not (%atom-end? db)) - (begin - (builder (%read-char db)) - (loop)))) - (let* ((string (builder)) - (cp (string->number string 16 #t))) - (if (not (unicode-code-point? cp)) - (error:illegal-code-point string)) - (integer->char cp)))) + (let* ((string (parse-atom db '())) + (cp (string->number string 16 #t))) + (if (not (unicode-code-point? cp)) + (error:illegal-code-point string)) + (integer->char cp))) (else (let ((builder (string-builder))) (builder char) -- 2.25.1