diff options
author | Andy Wingo <wingo@pobox.com> | 2010-01-13 21:08:54 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2010-01-13 21:08:54 +0100 |
commit | a8fc38526a3e8fb9fef00042e1acc5b4a80b3f3f (patch) | |
tree | f96d61fddb5e2fc9364a6f0d7a46a98788963d20 | |
parent | bd4b6c1a83a857f48e63fd64c276c77457c41bca (diff) | |
download | guile-a8fc38526a3e8fb9fef00042e1acc5b4a80b3f3f.tar.gz |
remove unused var in read.c
* libguile/read.c (scm_read_character): Remove unused var.
-rw-r--r-- | libguile/read.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libguile/read.c b/libguile/read.c index c209669ca..edcb6ed1d 100644 --- a/libguile/read.c +++ b/libguile/read.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1999,2000,2001,2003, 2004, 2006, 2007, 2008, 2009 Free Software +/* Copyright (C) 1995,1996,1997,1999,2000,2001,2003, 2004, 2006, 2007, 2008, 2009, 2010 Free Software * Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -847,7 +847,6 @@ scm_read_character (scm_t_wchar chr, SCM port) if (cp == 'x' && (charname_len > 1) && SCM_R6RS_ESCAPES_P) { SCM p; - scm_t_wchar chr; /* Convert from hex, skipping the initial 'x' character in CHARNAME */ p = scm_string_to_number (scm_c_substring (charname, 1, charname_len), |