diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-03-12 15:03:17 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-03-12 15:03:17 +0000 |
commit | 8cdeee7d7875111169f65a26ca72d05ac2aa321f (patch) | |
tree | 773444fa73fe843df0a3c092d5b6474cc68c01bc | |
parent | e11208ca72463ef39e25e81d0245637b2e586f60 (diff) | |
download | guile-8cdeee7d7875111169f65a26ca72d05ac2aa321f.tar.gz |
* arrays.scm (make-array): Added quote in front of ().
-rw-r--r-- | ice-9/ChangeLog | 4 | ||||
-rw-r--r-- | 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 <mdj@linnaeus.mit.edu> + + * arrays.scm (make-array): Added quote in front of (). + 2001-03-12 Keisuke Nishida <kxn30@po.cwru.edu> * 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) |