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

throw permission_error in compile_assert when attempting to assert a built-in (#1872)

Browse Source
This commit is contained in:
Mark
2023-07-13 15:03:26 -06:00
parent a9cb826bf3
commit 12f890e4a2
4 changed files with 31 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/machine/dispatch.rs
View File

@@ -4919,11 +4919,19 @@ impl Machine {
self.machine_st.p = self.machine_st.cp;
}
&Instruction::CallBuiltInProperty => {
self.builtin_property();
let key = self
.machine_st
.read_predicate_key(self.machine_st.registers[1], self.machine_st.registers[2]);
self.machine_st.fail = !self.indices.builtin_property(key);
step_or_fail!(self, self.machine_st.p += 1);
}
&Instruction::ExecuteBuiltInProperty => {
self.builtin_property();
let key = self
.machine_st
.read_predicate_key(self.machine_st.registers[1], self.machine_st.registers[2]);
self.machine_st.fail = !self.indices.builtin_property(key);
step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
}
&Instruction::CallMetaPredicateProperty => {