From 2c92112b3d4a84229e3d8cc080af86feb23f5611 Mon Sep 17 00:00:00 2001
From: Anthony Green <green@hoser.cygnus.com>
Date: Wed, 26 Nov 1997 03:45:23 +0000
Subject: [PATCH] gh bug fix

---
 libguile/gh_data.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/libguile/gh_data.c b/libguile/gh_data.c
index 2c067cc5b..3b171b5cc 100644
--- a/libguile/gh_data.c
+++ b/libguile/gh_data.c
@@ -80,7 +80,7 @@ gh_double2scm (double x)
 SCM 
 gh_char2scm (char c)
 {
-  return SCM_MAKICHR (c);
+ return SCM_MAKICHR (c);
 }
 SCM 
 gh_str2scm (char *s, int len)
@@ -101,7 +101,8 @@ gh_str02scm (char *s)
 void 
 gh_set_substr (char *src, SCM dst, int start, int len)
 {
-  char *dst_ptr, dst_len, effective_length;
+  char *dst_ptr;
+  unsigned long dst_len, effective_length;
 
   SCM_ASSERT (SCM_NIMP (dst) && SCM_STRINGP (dst), dst, SCM_ARG3,
 	      "gh_set_substr");