improve char conversion

2013-12-05 11:20:57 +00:00
parent ba07371328
commit b3608c6a83
5 changed files with 23 additions and 21 deletions
--- a/C/computils.c
+++ b/C/computils.c
@@ -592,6 +592,8 @@ ShowOp (char *f, struct PSEUDO *cpc)
 		  Yap_DebugPlWrite(MkAtomTerm(AtomLONGINT));
 		} else if (fun == FunctorDouble) {
 		  Yap_DebugPlWrite(MkAtomTerm(AtomDOUBLE));
+		} else if (fun == FunctorString) {
+		  Yap_DebugPlWrite(MkAtomTerm(AtomSTRING));
 		}
 	      } else {
 		Yap_DebugPlWrite (MkAtomTerm(NameOfFunctor(fun)));