cs: require Chez Scheme 9.5.3

2019-04-07 10:24:42 +02:00 · 2019-04-07 10:24:42 +02:00 · 39c67f8b6a
commit 39c67f8b6a
parent 5a638073eb
1 changed files with 6 additions and 0 deletions
--- 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