add '$delete_all_attributes', use copy_term/3 as defined in #1272

src/machine/dispatch.rs

@@ -5207,6 +5207,14 @@ impl Machine {
                     self.delete_from_attributed_variable_list();
                     step_or_fail!(self, self.machine_st.p = self.machine_st.cp);
                 }
+                &Instruction::CallDeleteAllAttributes(_) => {
+                    self.delete_all_attributes();
+                    self.machine_st.p += 1;
+                }
+                &Instruction::ExecuteDeleteAllAttributes(_) => {
+                    self.delete_all_attributes();
+                    self.machine_st.p = self.machine_st.cp;
+                }
             }
         }