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

assertz/1, asserta/1, retract/1, retractall/1 are meta-predicates (#902, #903)

Browse Source
This commit is contained in:
Mark Thom
2021-04-14 15:10:45 -06:00
parent 5452b55e38
commit b08442b46f
3 changed files with 34 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
src/indexing.rs
View File

@@ -37,7 +37,7 @@ impl OptArgIndexKey {
match (self, key_type) {
(OptArgIndexKey::Constant(..), OptArgIndexKeyType::Constant)
| (OptArgIndexKey::Structure(..), OptArgIndexKeyType::Structure)
// | (OptArgIndexKey::List(..), OptArgIndexKeyType::List)
// | (OptArgIndexKey::List(..), OptArgIndexKeyType::List)
=> true,
_ => false,
}
@@ -116,7 +116,12 @@ impl<'a> IndexingCodeMergingPtr<'a> {
constants.insert(constant.clone(), constant_ptr);
}
_ => {
unreachable!()
if let IndexingCodePtr::DynamicExternal(_) = constant_ptr {
// this must be a defunct clause, because it's been deleted
// from the skeleton.
} else {
unreachable!()
}
}
}
@@ -378,7 +383,12 @@ impl<'a> IndexingCodeMergingPtr<'a> {
structures.insert((name.clone(), *arity), structure_ptr);
}
_ => {
unreachable!()
if let IndexingCodePtr::DynamicExternal(_) = structure_ptr {
// this must be a defunct clause, because it's been deleted
// from the skeleton.
} else {
unreachable!()
}
}
}