diff --git a/release_notes/release_notes.stex b/release_notes/release_notes.stex index cbcd43094..e5b2c6cc6 100644 --- a/release_notes/release_notes.stex +++ b/release_notes/release_notes.stex @@ -3005,6 +3005,9 @@ The compiler avoids transforming an expression like \scheme{(+ -inf.0 x)}, where \scheme{x} is known to be real, into \scheme{(fl+ -inf.0 (real->flonum x))} in case \scheme{x} is a bignum that would be converted into \scheme{+inf.0}. +A bug that incorrectly determined the return type of \scheme{eq-hashtable-ref-cell} +to be non-false has been fixed. + \subsection{Fix 32-bit ARM floating-point dereference offset (10.4.0)} A bug that affects compilation on 32-bit ARM systems has been fixed. The bug was triggered diff --git a/s/primdata.ss b/s/primdata.ss index 026db5104..8aeaac26d 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -1326,7 +1326,7 @@ (eq-hashtable-delete! [sig [(eq-hashtable ptr) -> (void)]] [flags true]) (eq-hashtable-ephemeron? [sig [(eq-hashtable) -> (boolean)]] [flags pure mifoldable discard]) (eq-hashtable-ref [sig [(eq-hashtable ptr ptr) -> (ptr)]] [flags discard]) - (eq-hashtable-ref-cell [sig [(eq-hashtable ptr) -> (prt)]] [flags discard]) + (eq-hashtable-ref-cell [sig [(eq-hashtable ptr) -> (ptr)]] [flags discard]) (eq-hashtable-set! [sig [(eq-hashtable ptr ptr) -> (void)]] [flags true]) (eq-hashtable-try-atomic-cell [sig [(eq-hashtable ptr ptr) -> (maybe-pair)]] [flags]) (eq-hashtable-update! [sig [(eq-hashtable ptr procedure ptr) -> (void)]] [flags])