repair test

This commit is contained in:
Matthew Flatt 2021-03-19 08:28:35 -06:00
parent a50aa9d164
commit 873d898ade

View File

@ -540,7 +540,7 @@
(test #t k:interned-char? #\()
(test #t k:interned-char? #\ )
(test #t k:interned-char? '#\newline)
(test (not (eq? 'chez-scheme (system-type 'vm))) k:interned-char? #\u100)
(test (eq? 'chez-scheme (system-type 'vm)) k:interned-char? #\u100)
(test #f k:interned-char? 7)
(test #f k:interned-char? #t)
(test #f k:interned-char? #t)