fix bad handling of singletons with write_canonical.

2012-03-14 22:10:21 +00:00
parent b01261eed5
commit cc8521c9d5
4 changed files with 38 additions and 11 deletions
--- a/C/pl-yap.c
+++ b/C/pl-yap.c
@@ -623,7 +623,7 @@ 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);
+  return Yap_NumberVars(YAP_GetFromSlot(t), n, TRUE);
 }

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