From 8cdeee7d7875111169f65a26ca72d05ac2aa321f Mon Sep 17 00:00:00 2001 From: Mikael Djurfeldt Date: Mon, 12 Mar 2001 15:03:17 +0000 Subject: [PATCH] * arrays.scm (make-array): Added quote in front of (). --- ice-9/ChangeLog | 4 ++++ ice-9/arrays.scm | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog index 4ce20506a..6dbd2a55c 100644 --- a/ice-9/ChangeLog +++ b/ice-9/ChangeLog @@ -1,3 +1,7 @@ +2001-03-12 Mikael Djurfeldt + + * arrays.scm (make-array): Added quote in front of (). + 2001-03-12 Keisuke Nishida * common-list.scm (count-if): New procedure. diff --git a/ice-9/arrays.scm b/ice-9/arrays.scm index 51be69210..7d249795e 100644 --- a/ice-9/arrays.scm +++ b/ice-9/arrays.scm @@ -1,6 +1,6 @@ ;;; installed-scm-file -;;;; Copyright (C) 1999 Free Software Foundation, Inc. +;;;; Copyright (C) 1999, 2001 Free Software Foundation, Inc. ;;;; ;;;; This program is free software; you can redistribute it and/or modify ;;;; it under the terms of the GNU General Public License as published by @@ -30,7 +30,7 @@ (define uniform-vector-write uniform-array-write) (define (make-array fill . args) - (dimensions->uniform-array args () fill)) + (dimensions->uniform-array args '() fill)) (define (make-uniform-array prot . args) (dimensions->uniform-array args prot)) (define (list->array ndim lst)