#;
(exn-pred 1 ".*once in a form.*")
#lang typed/scheme

(: foo : (Integer -> Integer -> Integer))
(define foo 1)

#;
(exn-pred #rx".*once in a form.*")
#lang typed/scheme

(: foo : (Integer -> Integer -> Integer))
(define foo 1)

Fix error spec for this test.
Fix error spec for this test.
