Handle <eof> in reader's character escape sequences

* module/ice-9/read.scm (read-r6rs-hex-escape, read-fixed-hex-escape):
    modified

1 files changed, 6 insertions, 0 deletions

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index bc9e15288..3b8fd3537 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -249,8 +249,12 @@
               (cond
                ((hex-digit ch) => (lambda (digit) (lp (+ (* 16 res) digit))))
                ((eqv? ch #\;) (integer->char res))
+               ((eof-object? ch)
+                (error "unexpected end of input in character escape sequence"))
                (else
                 (error "invalid character in escape sequence: ~S" ch)))))))
+       ((eof-object? ch)
+        (error "unexpected end of input in character escape sequence"))
        (else
         (error "invalid character in escape sequence: ~S" ch)))))
 
@@ -263,6 +267,8 @@
              ((hex-digit ch) =>
               (lambda (digit)
                 (lp (1- len) (+ (* res 16) digit))))
+             ((eof-object? ch)
+              (error "unexpected end of input in character escape sequence"))
              (else
               (error "invalid character in escape sequence: ~S" ch)))))))