forked from syndicate-lang/preserves
Forbid empty string input to string->preserve
This commit is contained in:
parent
50eec6ba8e
commit
374ab89cd0
|
@ -496,6 +496,8 @@
|
||||||
(define (string->preserve s)
|
(define (string->preserve s)
|
||||||
(define p (open-input-string s))
|
(define p (open-input-string s))
|
||||||
(define v (read-preserve p))
|
(define v (read-preserve p))
|
||||||
|
(when (eof-object? v)
|
||||||
|
(parse-error* p "Unexpected end of input"))
|
||||||
(skip-whitespace* p)
|
(skip-whitespace* p)
|
||||||
(when (not (eof-object? (peek-char p)))
|
(when (not (eof-object? (peek-char p)))
|
||||||
(parse-error* p "Unexpected text following preserve"))
|
(parse-error* p "Unexpected text following preserve"))
|
||||||
|
|
Loading…
Reference in New Issue