1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +02:00

* error.c (scm_wta): coerce char* to intptr_t before int

assignment.
This commit is contained in:
Rob Browning 2001-09-21 17:50:45 +00:00
parent c952c7c062
commit 8ed5a245b3

View file

@ -308,7 +308,7 @@ scm_wta (SCM arg, const char *pos, const char *s_subr)
else
{
/* numerical error code. */
int error = (int) pos;
int error = (intptr_t) pos;
switch (error)
{