Fix length of \U hex escape in new reader

* module/ice-9/read.scm (%read): \U escape is 6 digits long.

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 9e3346c5a1b7bbcb2619dc1ae7b2e14558de0792..639b76af6724a1af8cf2382d11e1244a5d180049 100644 (file)
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -314,7 +314,7 @@
                   ((#\u)
                    (read-fixed-hex-escape 4))
                   ((#\U)
-                   (read-fixed-hex-escape 8))
+                   (read-fixed-hex-escape 6))
                   (else
                    (error "invalid character in escape sequence: ~S" ch)))
                 out))))))