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

an attempt to be more windows friendly

Browse Source
This commit is contained in:
Robby Findler 2010-08-28 14:05:43 -05:00
parent 33d7eb40e3
commit 36c2eea571
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/tests/racket/contract-test.rktl
View File

@ -10223,11 +10223,11 @@ so that propagation occurs.
(require 'provide/contract-35/m) (require 'provide/contract-35/m)
(f #f))))) (f #f)))))
(test (format "/contract-test.rktl:~a.30: " (test (format "contract-test.rktl:~a.30: "
(+ here-line 8)) (+ here-line 8))
'provide/contract-compiled-source-locs 'provide/contract-compiled-source-locs
(with-handlers ((exn:fail? (λ (x) (with-handlers ((exn:fail? (λ (x)
(let ([m (regexp-match #rx"/contract-test.rktl[^ ]* " (exn-message x))]) (let ([m (regexp-match #rx"contract-test.rktl[^ ]* " (exn-message x))])
(and m (car m)))))) (and m (car m))))))
(contract-eval '(require 'provide/contract-35/n))))) (contract-eval '(require 'provide/contract-35/n)))))