From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 19 Mar 2017 02:13:29 +0000 (-0700)
Subject: More simplification.
X-Git-Tag: mit-scheme-pucked-9.2.12~158^2~87
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7063130bb4f8275745aec3af1ac1546d072b207a;p=mit-scheme.git

More simplification.
---

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)