diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-10-31 00:19:17 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2023-11-06 00:46:26 +0100 |
| commit | c2fd21336448775944b27b33cf0c99ecfadfb73e (patch) | |
| tree | 1d091b8aa795766aaa26298226703e634ee9b0a2 | |
| parent | Remove re-implementation of resolve-language. (diff) | |
| download | calp-c2fd21336448775944b27b33cf0c99ecfadfb73e.tar.gz calp-c2fd21336448775944b27b33cf0c99ecfadfb73e.tar.xz | |
Add NOCOV comments to (vcomponent create).
| -rw-r--r-- | module/vcomponent/create.scm | 4 |
1 files 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. |