diff options
author | Andy Wingo <wingo@pobox.com> | 2011-04-11 23:30:52 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2011-04-11 23:30:52 +0200 |
commit | 21c05db45b69f8a62b84c36abc86cb935fa967d7 (patch) | |
tree | 743df01da540e7fd628f54894e7d5fbe94b03996 /libguile/arrays.c | |
parent | 4db853d747ac115f799c93e2de93f5159ad84109 (diff) | |
parent | c89b45299329d034875429804f18768c1ea96713 (diff) | |
download | guile-21c05db45b69f8a62b84c36abc86cb935fa967d7.tar.gz |
Merge remote branch 'origin/stable-2.0'
Conflicts:
GUILE-VERSION
test-suite/tests/srfi-4.test
Diffstat (limited to 'libguile/arrays.c')
-rw-r--r-- | libguile/arrays.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/libguile/arrays.c b/libguile/arrays.c index 89f5e9d09..6724d0071 100644 --- a/libguile/arrays.c +++ b/libguile/arrays.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, 2006, 2009, 2010 Free Software Foundation, Inc. +/* Copyright (C) 1995,1996,1997,1998,2000,2001,2002,2003,2004, 2005, 2006, 2009, 2010, 2011 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 License @@ -860,7 +860,6 @@ SCM scm_i_read_array (SCM port, int c) { ssize_t rank; - int got_rank; char tag[80]; int tag_len; @@ -888,7 +887,6 @@ scm_i_read_array (SCM port, int c) return SCM_BOOL_F; } rank = 1; - got_rank = 1; tag[0] = 'f'; tag_len = 1; goto continue_reading_tag; |