diff --git a/racket/src/cs/compile-file.ss b/racket/src/cs/compile-file.ss index 0bdfcc1595..7878da6089 100644 --- a/racket/src/cs/compile-file.ss +++ b/racket/src/cs/compile-file.ss @@ -3,9 +3,11 @@ ;; that has all the features we need. (let-values ([(maj min sub) (scheme-version-number)]) - (unless (and (>= maj 9) - (>= maj 5) - (>= maj 3)) + (unless (or (> maj 9) + (and (= maj 9) + (or (> min 5) + (and (= min 5) + (>= sub 3))))) (error 'compile-file "need a newer Chez Scheme"))) (define (check-ok what thunk)