diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-29 01:17:04 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
commit | 1ae2c1d1d0172ff46b49edf03a09085b282d63d0 (patch) | |
tree | 938c62ce89c0d94a7c807130951c3dc87d0fcd07 | |
parent | Add some NOCOV declarations to (hnh util). (diff) | |
download | calp-1ae2c1d1d0172ff46b49edf03a09085b282d63d0.tar.gz calp-1ae2c1d1d0172ff46b49edf03a09085b282d63d0.tar.xz |
Remove (srfi srfi-64 util).
It only declared `test-match-group`, which was sort of useful when
ignoring som tests. It haven't been used in a while, and is therefore
removed.
-rw-r--r-- | module/srfi/srfi-64/util.scm | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/module/srfi/srfi-64/util.scm b/module/srfi/srfi-64/util.scm deleted file mode 100644 index a371227f..00000000 --- a/module/srfi/srfi-64/util.scm +++ /dev/null @@ -1,11 +0,0 @@ -(define-module (srfi srfi-64 util) - :use-module (ice-9 curried-definitions) - :use-module ((srfi srfi-1) :select (every)) - :use-module (srfi srfi-64) - :export (test-match-group)) - -;; Specifier for name of group -(define ((test-match-group name . names) runner) - (every string=? - (reverse (cons name names)) - (test-runner-group-stack runner))) |