repair test
This commit is contained in:
parent
a50aa9d164
commit
873d898ade
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user