mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

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

Browse source
This commit is contained in:
Mikael Djurfeldt 2001-03-12 15:03:17 +00:00
parent e11208ca72
commit 8cdeee7d78
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ice-9/ChangeLog
View file

@ -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> 2001-03-12 Keisuke Nishida <kxn30@po.cwru.edu>
* common-list.scm (count-if): New procedure. * common-list.scm (count-if): New procedure.

4
ice-9/arrays.scm
View file

@ -1,6 +1,6 @@
;;; installed-scm-file ;;; 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 ;;;; 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 ;;;; 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 uniform-vector-write uniform-array-write)
(define (make-array fill . args) (define (make-array fill . args)
(dimensions->uniform-array args () fill)) (dimensions->uniform-array args '() fill))
(define (make-uniform-array prot . args) (define (make-uniform-array prot . args)
(dimensions->uniform-array args prot)) (dimensions->uniform-array args prot))
(define (list->array ndim lst) (define (list->array ndim lst)