From 374ab89cd0d2f602aba9ddcd51048904b424f90b Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Tue, 2 Oct 2018 13:02:12 +0100 Subject: [PATCH] Forbid empty string input to string->preserve --- implementations/racket/preserves/main.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/implementations/racket/preserves/main.rkt b/implementations/racket/preserves/main.rkt index 259c489..ebbf90b 100644 --- a/implementations/racket/preserves/main.rkt +++ b/implementations/racket/preserves/main.rkt @@ -496,6 +496,8 @@ (define (string->preserve s) (define p (open-input-string s)) (define v (read-preserve p)) + (when (eof-object? v) + (parse-error* p "Unexpected end of input")) (skip-whitespace* p) (when (not (eof-object? (peek-char p))) (parse-error* p "Unexpected text following preserve"))