From 73c89b096d5b08338ba89d0e31c98cbe9a4c76b0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Wed, 21 Jul 2010 11:11:19 +0100
Subject: [PATCH] fix trouble with extension of latin1 characters.

---
 C/stdpreds.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/C/stdpreds.c b/C/stdpreds.c
index b0013efd4..1818538d7 100755
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -852,7 +852,6 @@ p_char_code(void)
       Yap_Error(INSTANTIATION_ERROR,t0,"char_code/2");
       return(FALSE);
     } else if (!IsIntegerTerm(t1)) {
-      fprintf(stderr,"hello\n"),
       Yap_Error(TYPE_ERROR_INTEGER,t1,"char_code/2");
       return(FALSE);
     } else {
@@ -918,7 +917,7 @@ ch_to_wide(char *base, char *charp)
     return NULL;
   }
   for (i=n; i > 0; i--) {
-    nb[i-1] = base[i-1];
+    nb[i-1] = (unsigned char)base[i-1];
   }
   return nb+n;
 }