mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-28 16:00:22 +02:00
* arrays.scm (make-array): Added quote in front of ().
This commit is contained in:
parent
e11208ca72
commit
8cdeee7d78
2 changed files with 6 additions and 2 deletions
|
@ -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.
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue