[Guile-commits] 01/03: Handle <eof> in reader's character escape sequences

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 1ae9a8df3a5893118715c4100548e9e55d2a4d90
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Fri Mar 5 22:24:40 2021 -0800

    Handle <eof> in reader's character escape sequences
    
    * module/ice-9/read.scm (read-r6rs-hex-escape, read-fixed-hex-escape):
        modified
---
 module/ice-9/read.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index bc9e152..3b8fd35 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)))))))