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

Merge branch 'master' of github.com:ashinn/chibi-scheme

Browse source
This commit is contained in:
Alex Shinn 2019-07-12 00:05:10 +08:00
commit 27e67b0ae4
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))))))))
(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)
(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!"))))
(test #t
(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 (test-exception-handler-1 v)