diff --git a/racket/src/cs/compile-file.ss b/racket/src/cs/compile-file.ss index c06573e68b..10012e614b 100644 --- a/racket/src/cs/compile-file.ss +++ b/racket/src/cs/compile-file.ss @@ -2,6 +2,12 @@ ;; Check to make we're using a build of Chez Scheme ;; that has all the features we need. +(let-values ([(maj min sub) (scheme-version-number)]) + (unless (and (>= maj 9) + (>= maj 5) + (>= maj 3)) + (error 'compile-file "need a newer Chez Scheme"))) + (define (check-ok what thunk) (unless (guard (x [else #f]) (thunk)) (error 'compile-file