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/write.c
+++ b/C/write.c
@@ -1013,7 +1013,7 @@ writeTerm(Term t, int p, int depth, int rinfixarg, struct write_globs *wglb, str
 	wrputc(')', wglb->stream);
 	lastw = separator;
      }
-    } else if (wglb->Handle_vars && functor == FunctorVar) {
+    } else if (wglb->Handle_vars && functor == LOCAL_FunctorVar) {
      Term ti = ArgOfTerm(1, t);
      if (lastw == alphanum) {
 	wrputc(' ', wglb->stream);