IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source 
git-svn-id: svn+ssh://svn.gnucash.org/repo/gnucash/trunk@2173 57a11ea4-9604-0410-9ed3-97b8803252fd
This commit is contained in:
Dave Peticolas 2000-04-10 06:24:19 +00:00
parent a29e317b9f
commit 7a4ac8e055
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,5 +1,9 @@
2000-04-09 Dave Peticolas <peticola@cs.ucdavis.edu> 2000-04-09 Dave Peticolas <peticola@cs.ucdavis.edu>
* src/scm/srfi/srfi-1.r5rs.scm: renamed 'list-index' to
'list-index-pred'. guile-1.3.4 defines a list-index with
different api and semantics.
* configure.in: make gnucash.spec configured * configure.in: make gnucash.spec configured
* rpm/gnucash.spec.in: new file, same as old gnucash.spec, but * rpm/gnucash.spec.in: new file, same as old gnucash.spec, but

1
src/scm/report.scm
View File

@ -1,5 +1,6 @@
(require 'hash-table) (require 'hash-table)
(require 'record)
(gnc:support "report.scm") (gnc:support "report.scm")
;; We use a hash to store the report info so that whenever a report is ;; We use a hash to store the report info so that whenever a report is

8
src/scm/srfi/srfi-1.r5rs.scm
View File

@ -41,7 +41,7 @@
;;; append-map append-map! map! pair-for-each filter-map map-in-order ;;; append-map append-map! map! pair-for-each filter-map map-in-order
;;; filter partition remove ;;; filter partition remove
;;; filter! partition! remove! ;;; filter! partition! remove!
;;; find find-tail any every list-index ;;; find find-tail any every list-index-pred
;;; take-while drop-while take-while! ;;; take-while drop-while take-while!
;;; span break span! break! ;;; span break span! break!
;;; delete delete! ;;; delete delete!
@ -1293,7 +1293,7 @@
(filter! (lambda (elt) (not (= key (car elt)))) alist))) (filter! (lambda (elt) (not (= key (car elt)))) alist)))
;;; find find-tail take-while drop-while span break any every list-index ;;; find find-tail take-while drop-while span break any every list-index-pred
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (find pred list) (define (find pred list)
@ -1406,8 +1406,8 @@
(pred head) ; Last PRED app is tail call. (pred head) ; Last PRED app is tail call.
(and (pred head) (lp (car tail) (cdr tail)))))))) (and (pred head) (lp (car tail) (cdr tail))))))))
(define (list-index pred lis1 . lists) (define (list-index-pred pred lis1 . lists)
(srfi-1:check-arg procedure? pred list-index) (srfi-1:check-arg procedure? pred list-index-pred)
(if (pair? lists) (if (pair? lists)
;; N-ary case ;; N-ary case