diff options
author | Andy Wingo <wingo@pobox.com> | 2021-03-03 22:44:30 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2021-03-03 22:44:30 +0100 |
commit | 94279414a83ed682278ad71c5f3ef2cd4fabcc67 (patch) | |
tree | e4a0175b2f678bd5121bd3b077b45d282f34d70a | |
parent | a574fdf964ab2e82e5311911459c6a6a6641c5db (diff) | |
download | guile-94279414a83ed682278ad71c5f3ef2cd4fabcc67.tar.gz |
Fix length of \U hex escape in new reader
* module/ice-9/read.scm (%read): \U escape is 6 digits long.
-rw-r--r-- | module/ice-9/read.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm index 9e3346c5a..639b76af6 100644 --- 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)))))) |