mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

remove unused var in read.c

Browse source 
* libguile/read.c (scm_read_character): Remove unused var.
This commit is contained in:
Andy Wingo 2010-01-13 21:08:54 +01:00
parent bd4b6c1a83
commit a8fc38526a
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
libguile/read.c
View file

@ -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. * Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * 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) if (cp == 'x' && (charname_len > 1) && SCM_R6RS_ESCAPES_P)
{ {
SCM p; SCM p;
scm_t_wchar chr;
/* Convert from hex, skipping the initial 'x' character in CHARNAME */ /* Convert from hex, skipping the initial 'x' character in CHARNAME */
p = scm_string_to_number (scm_c_substring (charname, 1, charname_len), p = scm_string_to_number (scm_c_substring (charname, 1, charname_len),