fix write_canonical of $VAR(_).

2012-03-15 22:19:48 +00:00
parent f2782cc274
commit 0c1eb1d642
13 changed files with 28 additions and 4 deletions
--- a/C/pl-yap.c
+++ b/C/pl-yap.c
@@ -623,7 +623,8 @@ currentOperator(Module m, atom_t name, int kind, int *type, int *priority)

 int
 numberVars(term_t t, nv_options *opts, int n ARG_LD) {
-  return Yap_NumberVars(YAP_GetFromSlot(t), n, TRUE);
+
+  return Yap_NumberVars(YAP_GetFromSlot(t), n, opts->singletons);
 }

 		 /*******************************