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

correct and generalize current_predicate/1

Browse Source
This commit is contained in:
Mark
2023-06-28 17:31:43 -06:00
parent c4b13a2176
commit 58af615dd4
4 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/machine/system_calls.rs
View File

@@ -3774,7 +3774,7 @@ impl Machine {
(HeapCellValueTag::Atom, (module_name, _arity)) => {
module_name
}
(HeapCellValueTag::AttrVar | HeapCellValueTag::Var) => {
(HeapCellValueTag::AttrVar | HeapCellValueTag::Var | HeapCellValueTag::StackVar) => {
atom!("user")
}
_ => {
@@ -3845,9 +3845,9 @@ impl Machine {
(0 .. num_functors).map(|i| str_loc_as_cell!(h + 3 * i)),
);
unify!(self.machine_st, heap_loc_as_cell!(h), self.machine_st.registers[3]);
unify!(self.machine_st, heap_loc_as_cell!(h), self.machine_st.registers[4]);
} else {
unify!(self.machine_st, empty_list_as_cell!(), self.machine_st.registers[3]);
unify!(self.machine_st, empty_list_as_cell!(), self.machine_st.registers[4]);
}
}