From 8ed5a245b37f13f1bd410b678bb68994c3ea3ebf Mon Sep 17 00:00:00 2001
From: Rob Browning <rlb@defaultvalue.org>
Date: Fri, 21 Sep 2001 17:50:45 +0000
Subject: [PATCH] * error.c (scm_wta): coerce char* to intptr_t before int
 assignment.

---
 libguile/error.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/error.c b/libguile/error.c
index fd1e7d5f8..54224adb9 100644
--- a/libguile/error.c
+++ b/libguile/error.c
@@ -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)
 	{