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

fix number/1 (#1329)

Browse Source
This commit is contained in:
Mark Thom
2022-03-06 19:17:52 -07:00
parent 3bf42860e2
commit bd594e0c05
1 changed files with 8 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
src/machine/dispatch.rs
View File

@@ -2528,16 +2528,9 @@ impl Machine {
let d = self.machine_st.store(self.machine_st.deref(self.machine_st[r]));
match Number::try_from(d) {
Ok(Number::Fixnum(_) | Number::Integer(_) | Number::Float(_)) => {
Ok(_) => {
self.machine_st.p += 1;
}
Ok(Number::Rational(n)) => {
if n.denom() == &1 {
self.machine_st.p += 1;
} else {
self.machine_st.backtrack();
}
}
_ => {
self.machine_st.backtrack();
}
@@ -2547,16 +2540,9 @@ impl Machine {
let d = self.machine_st.store(self.machine_st.deref(self.machine_st[r]));
match Number::try_from(d) {
Ok(Number::Fixnum(_) | Number::Integer(_) | Number::Float(_)) => {
Ok(_) => {
self.machine_st.p = self.machine_st.cp;
}
Ok(Number::Rational(n)) => {
if n.denom() == &1 {
self.machine_st.p = self.machine_st.cp;
} else {
self.machine_st.backtrack();
}
}
_ => {
self.machine_st.backtrack();
}
@@ -2568,12 +2554,12 @@ impl Machine {
read_heap_cell!(d,
(HeapCellValueTag::Cons, ptr) => {
match_untyped_arena_ptr!(ptr,
(ArenaHeaderTag::Rational, _r) => {
self.machine_st.p += 1;
}
_ => {
self.machine_st.backtrack();
}
(ArenaHeaderTag::Rational, _r) => {
self.machine_st.p += 1;
}
_ => {
self.machine_st.backtrack();
}
);
}
_ => {