From 36c2eea571a8bdd19acfa8c7f058e742be743406 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 28 Aug 2010 14:05:43 -0500 Subject: [PATCH] an attempt to be more windows friendly --- collects/tests/racket/contract-test.rktl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/racket/contract-test.rktl b/collects/tests/racket/contract-test.rktl index 6784f65060..a835e356e9 100644 --- a/collects/tests/racket/contract-test.rktl +++ b/collects/tests/racket/contract-test.rktl @@ -10223,11 +10223,11 @@ so that propagation occurs. (require 'provide/contract-35/m) (f #f))))) - (test (format "/contract-test.rktl:~a.30: " + (test (format "contract-test.rktl:~a.30: " (+ here-line 8)) 'provide/contract-compiled-source-locs (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)))))) (contract-eval '(require 'provide/contract-35/n)))))