suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

cs: fix check of Chez Scheme version

Browse Source 
Merge to v7.3
This commit is contained in:
Gustavo Massaccesi 2019-04-09 10:38:22 -03:00
parent ef49ccf87a
commit 9f9b3f4443
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/cs/compile-file.ss
View File

@ -3,9 +3,11 @@
;; that has all the features we need. ;; that has all the features we need.
(let-values ([(maj min sub) (scheme-version-number)]) (let-values ([(maj min sub) (scheme-version-number)])
(unless (and (>= maj 9) (unless (or (> maj 9)
(>= maj 5) (and (= maj 9)
(>= maj 3)) (or (> min 5)
(and (= min 5)
(>= sub 3)))))
(error 'compile-file "need a newer Chez Scheme"))) (error 'compile-file "need a newer Chez Scheme")))
(define (check-ok what thunk) (define (check-ok what thunk)