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

gnucash/report/report-system/collectors.scm - remove useless predicate type

Browse Source
This commit is contained in:
Christopher Lam 2017-11-24 21:30:03 +08:00
parent 8fc31ce53c
commit 4d7e03b0ed
1 changed files with 0 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
gnucash/report/report-system/collectors.scm
View File

@ -59,10 +59,6 @@
(export slotset-check)
(export slotset-map-input)
(export predicate-and)
(export predicate-or)
(export predicate-not)
(export binary-search-lt)
;; Filters
@ -333,25 +329,6 @@
(car final))
(make-list-collector (cons collector other-collectors))))
;;
;; Predicates
;;
;; Was thinking about turning these into a real type (just to get a
;; decent predicate-name function). Probably not required.
(define (predicate-not p)
(lambda (x) (not (p x))))
(define (predicate-and p1 p2)
(lambda (x) (and (p1 x) (p2 x))))
(define (predicate-or p1 p2)
(lambda (x) (or (p1 x) (p2 x))))
(define (make-predicate fn) fn)
(define (predicate-test p value)
(p value))
;; Binary search. Returns highest index with content less than or
;; equal to the supplied value.