diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-29 00:31:57 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | 0d471f642772b3bc602192212ebce3ebdbe1f65a (patch) | |
| tree | 18f6d6dd9689a75e4612570a476b38780c6fd882 | |
| parent | Add more tests to (hnh util). (diff) | |
| download | calp-0d471f642772b3bc602192212ebce3ebdbe1f65a.tar.gz calp-0d471f642772b3bc602192212ebce3ebdbe1f65a.tar.xz | |
Add some NOCOV declarations to (hnh util).
| -rw-r--r-- | module/hnh/util.scm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/module/hnh/util.scm b/module/hnh/util.scm index 680d85eb..91fd87f3 100644 --- a/module/hnh/util.scm +++ b/module/hnh/util.scm @@ -69,11 +69,11 @@ when unless)) (cond-expand - (guile-3 (use-modules ((ice-9 copy-tree) :select (copy-tree)))) - (else)) + (guile-3 (use-modules ((ice-9 copy-tree) :select (copy-tree)))) ; NOCOV + (else)) ; NOCOV ((@ (guile) define-syntax) define-syntax - (syntax-rules () + (syntax-rules () ; NOCOV ((_ (name args ...) body ...) ((@ (guile) define-syntax) name (lambda (args ...) @@ -166,7 +166,8 @@ (call-with-values (lambda () first) (lambda returned rest ... - (apply values returned)))) + (apply values returned)))) ; NOCOV +;;; NOCOV (don't ask) |