aboutsummaryrefslogtreecommitdiff
path: root/module/hnh/util.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2023-02-23 06:08:04 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2023-04-10 22:58:54 +0200
commit3df2a2908ccb8904c3f5d1f40588a2bfd78152b2 (patch)
tree256ca007180d7d152fcb38f713daaf711662e150 /module/hnh/util.scm
parentChange child/parent interface for vcomponent. (diff)
downloadcalp-3df2a2908ccb8904c3f5d1f40588a2bfd78152b2.tar.gz
calp-3df2a2908ccb8904c3f5d1f40588a2bfd78152b2.tar.xz
Fix guile3 deprecation notices.
Diffstat (limited to 'module/hnh/util.scm')
-rw-r--r--module/hnh/util.scm4
1 files changed, 4 insertions, 0 deletions
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 ...)