Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Consider unterminated strings as read-error

Browse source
This commit is contained in:
Vasilij Schneidermann 2019-05-17 10:55:22 +02:00
parent 104811942f
commit ab39f12904
2 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/scheme/extras.scm
View file

@ -24,7 +24,7 @@
(else (lp (cdr files) (append (read-sexps (car files) #t) res)))))))) (else (lp (cdr files) (append (read-sexps (car files) #t) res))))))))
(define (read-error? x) (define (read-error? x)
(and (error-object? x) (eq? 'read (exception-kind x)))) (and (error-object? x) (memq (exception-kind x) '(read read-incomplete)) #t))
(define (file-error? x) (define (file-error? x)
(and (error-object? x) (eq? 'file (exception-kind x)))) (and (error-object? x) (eq? 'file (exception-kind x))))

2
tests/r7rs-tests.scm
View file

@ -1778,6 +1778,8 @@
(read-error? (guard (exn (else exn)) (error "BOOM!")))) (read-error? (guard (exn (else exn)) (error "BOOM!"))))
(test #t (test #t
(read-error? (guard (exn (else exn)) (read (open-input-string ")"))))) (read-error? (guard (exn (else exn)) (read (open-input-string ")")))))
(test #t
(read-error? (guard (exn (else exn)) (read (open-input-string "\"")))))
(define something-went-wrong #f) (define something-went-wrong #f)
(define (test-exception-handler-1 v) (define (test-exception-handler-1 v)