diff options
author | Kevin Ryde <user42@zip.com.au> | 2006-02-02 20:48:44 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2006-02-02 20:48:44 +0000 |
commit | 1d314ec23bbe4ee3d38f05758996d88a5cacbf37 (patch) | |
tree | 0b388d4886ebcaf7987cfbefdd7eb8feb46ef3cc | |
parent | aa092c5d7f83a9b5d0cd5d168f1d4e45a42de25a (diff) | |
download | guile-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.scm | 6 |
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)) |