From 0d471f642772b3bc602192212ebce3ebdbe1f65a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 29 Oct 2023 00:31:57 +0200
Subject: Add some NOCOV declarations to (hnh util).

---
 module/hnh/util.scm | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

(limited to 'module/hnh')

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)
 
 
 
-- 
cgit v1.2.3