Chez Scheme: fix test in date.ms

2021-03-18 09:55:15 -03:00 · 2021-03-18 09:55:15 -03:00 · 993b86ffa3
commit 993b86ffa3
parent 56970fdae7
1 changed files with 2 additions and 1 deletions
--- a/racket/src/ChezScheme/mats/date.ms
+++ b/racket/src/ChezScheme/mats/date.ms
@ -509,7 +509,8 @@
  (begin
    (define $date-d8 (make-date 999999999 59 59 23 31 12 2007 24))
    #t)
-  (not (fixnum? (date-nanosecond $date-d8)))
+  (eqv? (fixnum? 999999999)
+        (fixnum? (date-nanosecond $date-d8)))
  (eqv? (date-nanosecond $date-d1) 1)
  (eqv? (date-second $date-d1) 2)
  (eqv? (date-minute $date-d1) 3)