From 8aeadd314d4fa9d2809ef1c167f2a26703ba2b9e Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Sat, 27 Jul 2013 10:16:50 -0500
Subject: [PATCH] fix contract test suite infrastructure

---
 pkgs/racket-pkgs/racket-test/tests/racket/contract/all.rkt   | 1 +
 .../racket-test/tests/racket/contract/contract-out.rkt       | 5 +++--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/contract/all.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/contract/all.rkt
index 1d12aa4960..ab27ba6410 100644
--- a/pkgs/racket-pkgs/racket-test/tests/racket/contract/all.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/contract/all.rkt
@@ -171,6 +171,7 @@
     [else
      (for ([file (in-list files-to-run)])
        (replay-io
+        file
         (capture-io
          (λ ()
            (dynamic-require (build-path (this-dir) (car file)) #f)))))]))
diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/contract/contract-out.rkt b/pkgs/racket-pkgs/racket-test/tests/racket/contract/contract-out.rkt
index 9aa10456bf..d5ad1ede44 100644
--- a/pkgs/racket-pkgs/racket-test/tests/racket/contract/contract-out.rkt
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/contract/contract-out.rkt
@@ -1,5 +1,6 @@
 #lang racket/base
-(require "test-util.rkt")
+(require "test-util.rkt"
+         (for-syntax racket/base))
 
 (parameterize ([current-contract-namespace
                 (make-basic-contract-namespace 'racket/contract)])
@@ -635,7 +636,7 @@
     
     ;; WARNING: do not add or remove lines between here-line and the two modules
     ;; below it, unless you also revise the expected result of the test case.
-    (define here-line (syntax-line #'here))
+    (define here-line (let-syntax ([m (λ (stx) #`'#,(syntax-line stx))]) (m)))
     
     (contract-eval
      (compile/wash