diff options
-rw-r--r-- | module/ice-9/read.scm | 6 |
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))))))) |