From 5eb7939579e106cd644395b45dfe3de1042485fa Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 21 Nov 2009 23:24:02 +0000 Subject: [PATCH] check that we get correct blame svn: r16950 original commit: 5ea3e28078bc1ba5c0744f7fe3ebb76aadbfc464 --- collects/tests/typed-scheme/fail/back-and-forth.ss | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/tests/typed-scheme/fail/back-and-forth.ss b/collects/tests/typed-scheme/fail/back-and-forth.ss index 023eaf60..b23c7703 100644 --- a/collects/tests/typed-scheme/fail/back-and-forth.ss +++ b/collects/tests/typed-scheme/fail/back-and-forth.ss @@ -1,5 +1,5 @@ #; -(exn-pred exn:fail:contract? #rx".*contract.*\\(-> Number Number\\).*") +(exn-pred exn:fail:contract? #rx".*violator.*contract.*\\(-> Number Number\\).*") #lang scheme/load @@ -8,11 +8,11 @@ (define (f x) (add1 x)) (provide f)) -(module n scheme +(module violator scheme (require 'm) (f 'foo)) (module o typed-scheme - (require 'n)) + (require 'violator)) (require 'o)