cs: correct a result-arity error test

This commit is contained in:
Sorawee Porncharoenwase 2020-12-14 16:58:51 -08:00 committed by Matthew Flatt
parent 0a28dd1064
commit e9c5d1535a

View File

@ -911,8 +911,7 @@ We should also test deep continuations.
(define f (func (lambda () (loop i))))
(sleep 0.1)
(with-handlers ([exn:fail? (lambda (exn)
(unless (or (regexp-match #rx"expected number of values not received" (exn-message exn))
(regexp-match #rx"returned two values to single value return context" (exn-message exn)))
(unless (regexp-match #rx"expected number of values not received" (exn-message exn))
(raise exn)))])
(touch f))))