suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

check that we get correct blame

Browse Source 
svn: r16950
This commit is contained in:
Sam Tobin-Hochstadt 2009-11-21 23:24:02 +00:00
parent 406b5c384d
commit 5ea3e28078
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/tests/typed-scheme/fail/back-and-forth.ss
View File

@ -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 #lang scheme/load
@ -8,11 +8,11 @@
(define (f x) (add1 x)) (define (f x) (add1 x))
(provide f)) (provide f))
(module n scheme (module violator scheme
(require 'm) (require 'm)
(f 'foo)) (f 'foo))
(module o typed-scheme (module o typed-scheme
(require 'n)) (require 'violator))
(require 'o) (require 'o)