This commit is contained in:
Vitor Santos Costa 2017-09-19 14:23:20 +01:00
parent 27fdeb81cc
commit 4d1c031051

View File

@ -271,8 +271,9 @@ st += put_utf8(st,ch);
return -TYPE_ERROR_LIST; return -TYPE_ERROR_LIST;
} }
st[0] = '\0'; st[0] = '\0';
Malloc((st - st0) + 1);
*tailp = l; *tailp = l;
*atoms = length;
length = (st-st0);
return length; return length;
} }