From c2fd21336448775944b27b33cf0c99ecfadfb73e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 31 Oct 2023 00:19:17 +0100
Subject: Add NOCOV comments to (vcomponent create).

---
 module/vcomponent/create.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/module/vcomponent/create.scm b/module/vcomponent/create.scm
index 27ea6996..355839f0 100644
--- a/module/vcomponent/create.scm
+++ b/module/vcomponent/create.scm
@@ -24,13 +24,13 @@
 (define (keyword->key keyword)
   (-> keyword
       keyword->string
-      string-upcase
+      string-upcase                     ; NOCOV
       string->symbol))
 
 (define (symbol-upcase symbol)
   (-> symbol
       symbol->string
-      string-upcase
+      string-upcase                     ; NOCOV
       string->symbol))
 
 ;; Upcase the keys in an association list. Keys must be symbols.
-- 
cgit v1.2.3