From a5db4bf376771baac66fbb98d63574387914fe94 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 16 Mar 2021 07:45:36 -0600 Subject: [PATCH] Chez Scheme: fix `make-time` type signature On a 32-bit platform, the nanosecond argument is not always a fixnum. --- racket/src/ChezScheme/s/primdata.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/ChezScheme/s/primdata.ss b/racket/src/ChezScheme/s/primdata.ss index ea89d57507..28435fcf6d 100644 --- a/racket/src/ChezScheme/s/primdata.ss +++ b/racket/src/ChezScheme/s/primdata.ss @@ -872,7 +872,7 @@ (make-date [sig [(sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum) -> (date)] [(sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-ufixnum sub-fixnum) -> (date)]] [flags alloc]) - (make-time [sig [(sub-symbol sub-ufixnum exact-integer) -> (time)]] [flags alloc]) + (make-time [sig [(sub-symbol sub-uint exact-integer) -> (time)]] [flags alloc]) (set-time-nanosecond! [sig [(time sub-uint) -> (void)]] [flags true]) (set-time-second! [sig [(time exact-integer) -> (void)]] [flags true]) (set-time-type! [sig [(time sub-symbol) -> (void)]] [flags true])