From 1d314ec23bbe4ee3d38f05758996d88a5cacbf37 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Thu, 2 Feb 2006 20:48:44 +0000 Subject: [PATCH] =?UTF-8?q?2006-02-01=20=20Ludovic=20Court=C3=A8s=20=20=20=20=20=20=20=20=20=20=20*=20deprecated?= =?UTF-8?q?.scm=20(make-uniform-array):=20Fill=20the=20returned=20vector?= =?UTF-8?q?=20with=20=09PROT,=20per=20guile=201.6=20behaviour.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- ice-9/deprecated.scm | 6 +++--- 1 file 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))