properly disable TS tests on cgc

svn: r16842

original commit: 0c0945bb08cf08f46ae461c1c07fbbc17b3cb267
This commit is contained in:
Eli Barzilay 2009-11-17 20:02:07 +00:00
parent 9dbe7c808f
commit fd735190d5

View File

@ -0,0 +1,7 @@
#lang scheme/base
(require scheme/runtime-path)
(define-runtime-path run "run.ss")
(if (eq? 'cgc (system-type 'gc))
(printf "Running under CGC => skipping tests\n")
(dynamic-require run #f))