diff options
Diffstat (limited to 'test-suite/standalone/test-gh.c')
-rw-r--r-- | test-suite/standalone/test-gh.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test-suite/standalone/test-gh.c b/test-suite/standalone/test-gh.c index 78cf87fa5..b273b4499 100644 --- a/test-suite/standalone/test-gh.c +++ b/test-suite/standalone/test-gh.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1999,2000,2001,2003, 2006 Free Software Foundation, Inc. +/* Copyright (C) 1999,2000,2001,2003, 2006, 2008 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public @@ -17,8 +17,8 @@ /* some bits originally by Jim Blandy <jimb@red-bean.com> */ -#include "libguile.h" -#include "libguile/gh.h" +#include <libguile.h> +#include <libguile/gh.h> #include <assert.h> #include <string.h> @@ -31,7 +31,7 @@ string_equal (SCM str, char *lit) int len = strlen (lit); int result; - result = ((scm_i_string_length (str) == len) + result = ((scm_c_string_length (str) == len) && (!memcmp (scm_i_string_chars (str), lit, len))); scm_remember_upto_here_1 (str); return result; |