From: Mark Thom <markjordanthom@gmail.com>
Date: Sun, 3 May 2020 03:26:36 +0000 (-0600)
Subject: wrap support code in modules
X-Git-Tag: v0.8.123~70
X-Git-Url: https://git.sagredo.dev/?a=commitdiff_plain;h=989bed88feb4a7211529f1467b3008aad847039d;p=scryer-prolog.git

wrap support code in modules
---

diff --git a/src/prolog/machine/attributed_variables.pl b/src/prolog/machine/attributed_variables.pl
index af8d8af8..8756eb3c 100644
--- a/src/prolog/machine/attributed_variables.pl
+++ b/src/prolog/machine/attributed_variables.pl
@@ -1,3 +1,5 @@
+:- module('$atts', []).
+
 driver(Vars, Values) :-
     iterate(Vars, Values, ListOfListsOfGoalLists),
     !,
diff --git a/src/prolog/machine/project_attributes.pl b/src/prolog/machine/project_attributes.pl
index ac851b2b..da5d8762 100644
--- a/src/prolog/machine/project_attributes.pl
+++ b/src/prolog/machine/project_attributes.pl
@@ -1,3 +1,5 @@
+:- module('$project_atts', [copy_term/3]).
+
 '$attribute_goals_driver'(QueryVars, AttrVars) :-
     gather_modules(AttrVars, Modules0, _),
     sort(Modules0, Modules),