From cacdd173b54c010f3399961e9d5467d3bdafeaf3 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 16 Dec 2016 03:40:37 -0600
Subject: [PATCH] fix error msg

---
 C/scanner.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/C/scanner.c b/C/scanner.c
index c5cdc9239..122c35f82 100755
--- a/C/scanner.c
+++ b/C/scanner.c
@@ -1206,7 +1206,10 @@ Term Yap_tokRep(void *tokptre) {
   case eot_tok:
     return MkAtomTerm(Yap_LookupAtom("EOT"));
   case Ponctuation_tok:
-    return info;
+    if (info == Terml)
+      return TermBeginBracket;
+    else
+      return info;
   }
   return TermDot;
 }
@@ -1220,6 +1223,8 @@ const char *Yap_tokText(void *tokptre) {
   case eot_tok:
     return "EOT";
   case Ponctuation_tok:
+   if (info == Terml)
+     return "(";
   case Error_tok:
   case BQString_tok:
   case String_tok: