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

Fix formatting of comments in scm_read_array.

Browse source 
* libguile/read.c (scm_read_array): Fix formatting of comments.
This commit is contained in:
Mark H Weaver 2012-10-30 22:58:19 -04:00
parent fa746547fc
commit 10744b7c50
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
libguile/read.c
View file

@ -1134,8 +1134,7 @@ read_decimal_integer (SCM port, int c, ssize_t *resp)
vectors. Also, the conflict between '#f' and '#f32' and '#f64' is vectors. Also, the conflict between '#f' and '#f32' and '#f64' is
handled here. handled here.
C is the first character read after the '#'. C is the first character read after the '#'. */
*/
static SCM static SCM
scm_read_array (int c, SCM port, scm_t_read_opts *opts, long line, int column) scm_read_array (int c, SCM port, scm_t_read_opts *opts, long line, int column)
{ {
@ -1147,13 +1146,11 @@ scm_read_array (int c, SCM port, scm_t_read_opts *opts, long line, int column)
/* XXX - shortcut for ordinary vectors. Shouldn't be necessary but /* XXX - shortcut for ordinary vectors. Shouldn't be necessary but
the array code can not deal with zero-length dimensions yet, and the array code can not deal with zero-length dimensions yet, and
we want to allow zero-length vectors, of course. we want to allow zero-length vectors, of course. */
*/
if (c == '(') if (c == '(')
return scm_read_vector (c, port, opts, line, column); return scm_read_vector (c, port, opts, line, column);
/* Disambiguate between '#f' and uniform floating point vectors. /* Disambiguate between '#f' and uniform floating point vectors. */
*/
if (c == 'f') if (c == 'f')
{ {
c = scm_getc (port); c = scm_getc (port);