rishi/scryer-prolog
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correct float version of sign/1 (#1360)

Browse Source
This commit is contained in:
Mark Thom
2022-03-18 19:00:53 -06:00
parent 3d4e400ed2
commit c2fc33afec
5 changed files with 19 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/machine/arithmetic_ops.rs
View File

@@ -82,16 +82,6 @@ fn numerical_type_error(
})
}
pub(crate) fn sign(n: Number) -> Number {
if n.is_positive() {
Number::Fixnum(Fixnum::build_with(1))
} else if n.is_negative() {
Number::Fixnum(Fixnum::build_with(-1))
} else {
Number::Fixnum(Fixnum::build_with(0))
}
}
fn isize_gcd(n1: isize, n2: isize) -> Option<isize> {
if n1 == 0 {
return n2.checked_abs().map(|n| n as isize);
@@ -1278,7 +1268,7 @@ impl MachineState {
atom!("\\") => self.interms.push(
drop_iter_on_err!(self, iter, bitwise_complement(a1, &mut self.arena))
),
atom!("sign") => self.interms.push(sign(a1)),
atom!("sign") => self.interms.push(a1.sign()),
_ => {
let evaluable_stub = functor_stub(name, 1);
std::mem::drop(iter);