do not retain attributes in solutions of findall (#3020)

diff --git a/src/machine/system_calls.rs b/src/machine/system_calls.rs
index 3a6c321b7aab11b72c4c3d24666e07d291010596..edd08cb5d9bc8bbacdeb11e8f1c2366e22ae2737 100644 (file)
--- a/src/machine/system_calls.rs
+++ b/src/machine/system_calls.rs
@@ -925,7 +925,7 @@ impl MachineState {
             &mut self.lifted_heap,
         );
 
-        let pstr_boundary = copy_term(copy_ball_term, copy_target, AttrVarPolicy::DeepCopy)?;
+        let pstr_boundary = copy_term(copy_ball_term, copy_target, AttrVarPolicy::StripAttributes)?;
 
         Ok(FindallCopyInfo {
             offset: threshold + lh_offset + 2,