fix NStringToList

This commit is contained in:
Vítor Santos Costa 2010-06-17 00:29:46 +01:00
parent 6e67a84ab0
commit c56ad7a80d

View File

@ -1135,10 +1135,10 @@ Term
Yap_NStringToList(char *s, size_t len)
{
Term t;
char *cp = s + len;
unsigned char *cp = (unsigned char *)s + len;
t = MkAtomTerm(AtomNil);
while (cp > s) {
while (cp > (unsigned char *)s) {
t = MkPairTerm(MkIntegerTerm(*--cp), t);
}
return t;