From 1aaf771c59c4b08f4acea6d294c2fa180d9d48f4 Mon Sep 17 00:00:00 2001 From: Spencer Florence Date: Thu, 13 Aug 2015 11:32:25 -0500 Subject: [PATCH] feature gate on module*+begin-for-syntax --- cover/info.rkt | 2 +- cover/strace.rkt | 2 +- cover/tests/do-bfs+module.rkt | 14 ++++++++++---- 3 files changed, 12 insertions(+), 6 deletions(-) diff --git a/cover/info.rkt b/cover/info.rkt index 8f98687..3ea035b 100644 --- a/cover/info.rkt +++ b/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")))) diff --git a/cover/strace.rkt b/cover/strace.rkt index b67197f..9e3be6a 100644 --- a/cover/strace.rkt +++ b/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))])]))] diff --git a/cover/tests/do-bfs+module.rkt b/cover/tests/do-bfs+module.rkt index 9513954..3b58ffb 100644 --- a/cover/tests/do-bfs+module.rkt +++ b/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)))))