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

Prepare for notifications.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 21:53:48 +02:00
parent ac3dce41a6
commit 1551ea15e6
3 changed files with 27 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/util-list.scm
View file

@ -29,7 +29,7 @@
util-list
(
filter
utils-tests!
util-list-tests!
)
(import scheme
@ -51,9 +51,9 @@
res)))))
;; Performs utils module self-tests.
(define (utils-tests!)
(define (util-list-tests!)
(run-tests
utils
util-list
(test-equal? filter (filter odd? '(1 2 3 4)) '(1 3))
(test-equal? filter (filter odd? '(2 4)) '())
))