From 3df2a2908ccb8904c3f5d1f40588a2bfd78152b2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 Feb 2023 06:08:04 +0100
Subject: Fix guile3 deprecation notices.

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

(limited to 'module/hnh/util.scm')

diff --git a/module/hnh/util.scm b/module/hnh/util.scm
index ba2a8a59..759cdd48 100644
--- a/module/hnh/util.scm
+++ b/module/hnh/util.scm
@@ -70,6 +70,10 @@
   :replace (set! define-syntax
                  when unless))
 
+(cond-expand
+  (guile-3 (use-modules ((ice-9 copy-tree) :select (copy-tree))))
+  (else))
+
 ((@ (guile) define-syntax) define-syntax
   (syntax-rules ()
     ((_ (name args ...) body ...)
-- 
cgit v1.2.3