From db9248a73ecca7bc5bd67967a8cff0355c3d2fff Mon Sep 17 00:00:00 2001 From: Gustavo Massaccesi Date: Tue, 6 Jun 2017 18:25:22 -0300 Subject: [PATCH] fix signature of fxbit-set? primdata.ss original commit: 517ee9d86e974abba5a5a25945b677b4f5b35469 --- LOG | 2 ++ s/primdata.ss | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/LOG b/LOG index f3954e4524..4b2a560ee1 100644 --- a/LOG +++ b/LOG @@ -477,3 +477,5 @@ - fix strip-fasl-file for immutable strings and vectors, fix an $oops call, and fix a vector-index increment in hashing strip.ss, 7.ss, newhash.ss, misc.ms +- fix signature of fxbit-set? + primdata.ss diff --git a/s/primdata.ss b/s/primdata.ss index b44d108457..3e013e4d12 100644 --- a/s/primdata.ss +++ b/s/primdata.ss @@ -72,7 +72,7 @@ (fxbit-count [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02]) (fxlength [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02]) (fxfirst-bit-set [sig [(fixnum) -> (fixnum)]] [flags arith-op cp02]) - (fxbit-set? [sig [(fixnum sub-ufixnum) -> (fixnum)]] [flags pure cp02]) + (fxbit-set? [sig [(fixnum sub-ufixnum) -> (boolean)]] [flags pure cp02]) (fxcopy-bit [sig [(fixnum sub-ufixnum bit) -> (fixnum)]] [flags arith-op cp02]) (fxbit-field [sig [(fixnum sub-ufixnum sub-ufixnum) -> (fixnum)]] [flags arith-op cp02 cp03]) (fxcopy-bit-field [sig [(fixnum sub-ufixnum sub-ufixnum fixnum) -> (fixnum)]] [flags arith-op cp02])