diff options
| -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) |