summaryrefslogtreecommitdiff
path: root/libguile/srfi-4.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2006-04-17 00:05:42 +0000
committerKevin Ryde <user42@zip.com.au>2006-04-17 00:05:42 +0000
commit2b829bbb3d685ff780a0e3c0888d1d1231e2bc0e (patch)
tree2fa96f40db1d02c513fa3002eb4819335cd194dd /libguile/srfi-4.c
parentcd5fea8dbe4879f2d79aeef72f7385728db39d75 (diff)
downloadguile-2b829bbb3d685ff780a0e3c0888d1d1231e2bc0e.tar.gz
merge from 1.8 branch
Diffstat (limited to 'libguile/srfi-4.c')
-rw-r--r--libguile/srfi-4.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/srfi-4.c b/libguile/srfi-4.c
index 544800bb8..fc5da1513 100644
--- a/libguile/srfi-4.c
+++ b/libguile/srfi-4.c
@@ -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);