guile-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

guile/guile-core/ice-9 ChangeLog arrays.scm


From: Mikael Djurfeldt
Subject: guile/guile-core/ice-9 ChangeLog arrays.scm
Date: Mon, 12 Mar 2001 07:03:17 -0800

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/03/12 07:03:17

Modified files:
        guile-core/ice-9: ChangeLog arrays.scm 

Log message:
        * arrays.scm (make-array): Added quote in front of ().

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/ChangeLog.diff?r1=1.388&r2=1.389
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/ice-9/arrays.scm.diff?r1=1.1&r2=1.2

Patches:
Index: guile/guile-core/ice-9/ChangeLog
diff -u guile/guile-core/ice-9/ChangeLog:1.388 
guile/guile-core/ice-9/ChangeLog:1.389
--- guile/guile-core/ice-9/ChangeLog:1.388      Mon Mar 12 04:23:55 2001
+++ guile/guile-core/ice-9/ChangeLog    Mon Mar 12 07:03:17 2001
@@ -1,3 +1,7 @@
+2001-03-12  Mikael Djurfeldt  <address@hidden>
+
+       * arrays.scm (make-array): Added quote in front of ().
+
 2001-03-12  Keisuke Nishida  <address@hidden>
 
        * common-list.scm (count-if): New procedure.
Index: guile/guile-core/ice-9/arrays.scm
diff -u guile/guile-core/ice-9/arrays.scm:1.1 
guile/guile-core/ice-9/arrays.scm:1.2
--- guile/guile-core/ice-9/arrays.scm:1.1       Fri Nov 19 10:22:46 1999
+++ guile/guile-core/ice-9/arrays.scm   Mon Mar 12 07:03:17 2001
@@ -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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]