Avoid fetching LD

SWI-Prolog · Dec 30, 2024 · eb264c6 · eb264c6
1 parent 3a5b359
commit eb264c6
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/src/pl-copyterm.c b/src/pl-copyterm.c
@@ -44,6 +44,8 @@
 #define AC_TERM_WALK_LRD 1
 #include "pl-termwalk.c"
 
+#undef LD
+#define LD LOCAL_LD
 
 		 /*******************************
 		 *	    COPY TERM		*
@@ -178,8 +180,11 @@ mark_vars(DECL_LD term_t t, int set)
 }
 
 
+#define share_for_duplicate(t, options) \
+	LDFUNC(share_for_duplicate, t, options)
+
 static bool
-share_for_duplicate(const Functor t, const cp_options *options)
+share_for_duplicate(DECL_LD const Functor t, const cp_options *options)
 { for(size_t i=0; i<options->nshare; i++)
   { Word p = valTermRef(options->share+i);
     if ( t == valueTerm(*p) )