allow abolish_clause to abolish empty dynamic clauses (#3010)
This commit is contained in:
@@ -2120,14 +2120,16 @@ impl Machine {
|
|||||||
.indices
|
.indices
|
||||||
.remove_predicate_skeleton(&compilation_target, &key)
|
.remove_predicate_skeleton(&compilation_target, &key)
|
||||||
.map(|skeleton| {
|
.map(|skeleton| {
|
||||||
let mut clause_clause_skeleton = loader
|
let mut clause_clause_skeleton =
|
||||||
.wam_prelude
|
match loader.wam_prelude.indices.remove_predicate_skeleton(
|
||||||
.indices
|
|
||||||
.remove_predicate_skeleton(
|
|
||||||
&clause_clause_compilation_target,
|
&clause_clause_compilation_target,
|
||||||
&(atom!("$clause"), 2),
|
&(atom!("$clause"), 2),
|
||||||
)
|
) {
|
||||||
.unwrap();
|
Some(skeleton) => skeleton,
|
||||||
|
None => {
|
||||||
|
return vec![];
|
||||||
|
}
|
||||||
|
};
|
||||||
|
|
||||||
let result = skeleton
|
let result = skeleton
|
||||||
.core
|
.core
|
||||||
|
|||||||
Reference in New Issue
Block a user