mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +02:00
Code Activity

merge from 1.8 branch

Browse source
This commit is contained in:
Kevin Ryde 2006-04-17 00:05:42 +00:00
parent cd5fea8dbe
commit 2b829bbb3d
220 changed files with 603 additions and 372 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/srfi-4.c
View file

@ -1,6 +1,6 @@
/* srfi-4.c --- Uniform numeric vector datatypes.
*
* Copyright (C) 2001, 2004 Free Software Foundation, Inc.
* Copyright (C) 2001, 2004, 2006 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
@ -850,7 +850,7 @@ SCM_DEFINE (scm_uniform_vector_read_x, "uniform-vector-read!", 1, 3, 0,
ssize_t inc;
size_t cstart, cend;
size_t remaining, off;
void *base;
char *base;
if (SCM_UNBNDP (port_or_fd))
port_or_fd = scm_current_input_port ();
@ -963,7 +963,7 @@ SCM_DEFINE (scm_uniform_vector_write, "uniform-vector-write", 1, 3, 0,
ssize_t inc;
size_t cstart, cend;
size_t amount, off;
const void *base;
const char *base;
port_or_fd = SCM_COERCE_OUTPORT (port_or_fd);