From 1ae9a8df3a5893118715c4100548e9e55d2a4d90 Mon Sep 17 00:00:00 2001 From: Michael Gran Date: Fri, 5 Mar 2021 22:24:40 -0800 Subject: [PATCH] Handle 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 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)))))))