From 39c67f8b6abc62fd308b9ea6c07f91299f3cc48a Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 7 Apr 2019 10:24:42 +0200
Subject: [PATCH] cs: require Chez Scheme 9.5.3

---
 racket/src/cs/compile-file.ss | 6 ++++++
 1 file changed, 6 insertions(+)

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