From 9f9b3f444349ee2f8a2d14762ded93c1cc87ecbc Mon Sep 17 00:00:00 2001
From: Gustavo Massaccesi <gustavo@oma.org.ar>
Date: Tue, 9 Apr 2019 10:38:22 -0300
Subject: [PATCH] cs: fix check of Chez Scheme version

Merge to v7.3
---
 racket/src/cs/compile-file.ss | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

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)