feature gate on module*+begin-for-syntax

cover/info.rkt

@@ -4,7 +4,7 @@
                         ("raw" cover generate-raw-coverage)))
 
 (define test-omit-paths (list "tests/error-file.rkt" "scribblings"))
-(define cover-omit-paths (list "tests/nested.rkt"))
+(define cover-omit-paths (list "tests/nested.rkt" "tests/bfs+module.rkt"))
 
 (define test-command-line-arguments '(("tests/arg.rkt" ("a"))))
 

cover/strace.rkt

@@ -71,7 +71,7 @@ The module implements code coverage annotations as described in cover.rkt
                     (map (lambda (e) (loop e 0 #f))
                          (syntax->list #'(b ...))))
                   (define stx
-                    #'(m name lang
+                    #`(m name lang
                          (#%module-begin add ... body ...)))
                   (rebuild-syntax stx disarmed expr phase-shift))])]))]
 

cover/tests/do-bfs+module.rkt

@@ -1,10 +1,11 @@
 #lang racket
-(require cover rackunit racket/runtime-path)
+(require cover rackunit racket/runtime-path version/utils)
 (define-runtime-path-list fs
   (list "module.rkt"
-        "bfs.rkt"
+        "bfs.rkt"))
+(define-runtime-path-list others
+  (list "bfs+module-nolex.rkt"
         "bfs+module.rkt"
-        "bfs+module-nolex.rkt"
         "lazy-require.rkt"))
 (test-case
  "begin-for-syntax with modules should be okay"
@@ -14,4 +15,9 @@
       (check-not-exn
        (lambda () (test-files! f))
        (path->string f)))
-    fs)))
+    (append fs
+            ;; we do not support version module*'s in begin-for-syntax
+            ;; on the old expander
+            (if (version<=? (version) "6.2.900")
+                null
+                others)))))