brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Finish utils split out.

Browse source
This commit is contained in:
Dominik Pantůček 2023-03-14 23:17:12 +01:00
parent 5b32f3a30a
commit 8803c11f5e
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
brmsaptool.scm
View file

@ -30,6 +30,7 @@
period period
member-file member-file
command-line command-line
utils
ansi ansi
members-base) members-base)
@ -42,6 +43,7 @@
(dictionary-tests!) (dictionary-tests!)
(month-tests!) (month-tests!)
(period-tests!) (period-tests!)
(utils-tests!)
(ansi-tests!) (ansi-tests!)
(member-file-tests!) (member-file-tests!)
(command-line-tests!) (command-line-tests!)

4
utils.scm
View file

@ -32,6 +32,10 @@
utils-tests! utils-tests!
) )
(import scheme
(chicken base)
testing)
;; Returns a list with elements matching pred? predicate. ;; Returns a list with elements matching pred? predicate.
(define (filter pred? lst) (define (filter pred? lst)
(let loop ((lst lst) (let loop ((lst lst)