clone attribute goals from copy_term/3, fetch attribute goals should be a move

This commit is contained in:
Mark Thom
2019-11-29 00:59:31 -07:00
parent 9c9c484ee4
commit 34745f6242
3 changed files with 24 additions and 14 deletions

View File

@@ -88,5 +88,5 @@ copy_term(Source, Dest, Goals) :-
term_variables(Source, Vars),
gather_modules(Vars, Modules, _),
call_attribute_goals(Modules, call_query_var_goals, Vars),
'$fetch_attribute_goals'(Goals0),
'$clone_attribute_goals'(Goals0),
'$copy_term_without_attr_vars'([Source | Goals0], [Dest | Goals]).