summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2006-02-02 20:48:44 +0000
committerKevin Ryde <user42@zip.com.au>2006-02-02 20:48:44 +0000
commit1d314ec23bbe4ee3d38f05758996d88a5cacbf37 (patch)
tree0b388d4886ebcaf7987cfbefdd7eb8feb46ef3cc
parentaa092c5d7f83a9b5d0cd5d168f1d4e45a42de25a (diff)
downloadguile-1d314ec23bbe4ee3d38f05758996d88a5cacbf37.tar.gz
2006-02-01 Ludovic Courtès <ludovic.courtes@laas.fr>
* deprecated.scm (make-uniform-array): Fill the returned vector with PROT, per guile 1.6 behaviour.
-rw-r--r--ice-9/deprecated.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/ice-9/deprecated.scm b/ice-9/deprecated.scm
index 4297e5f1b..db60efaae 100644
--- a/ice-9/deprecated.scm
+++ b/ice-9/deprecated.scm
@@ -1,4 +1,4 @@
-;;;; Copyright (C) 2003 Free Software Foundation, Inc.
+;;;; Copyright (C) 2003, 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
@@ -173,8 +173,8 @@
(define make-uniform-vector dimensions->uniform-array)
-(define (make-uniform-array prot . args)
- (dimensions->uniform-array args prot))
+(define (make-uniform-array prot . bounds)
+ (dimensions->uniform-array bounds prot prot))
(define (list->uniform-vector prot lst)
(list->uniform-array 1 prot lst))