Fix Guile < 3.0 compatibility issue.

1 files changed, 13 insertions, 2 deletions

diff --git a/haunt/ui.scm b/haunt/ui.scm
index 8c7c549..5af4ee3 100644
--- a/haunt/ui.scm
+++ b/haunt/ui.scm
@@ -22,8 +22,19 @@
 ;;
 ;;; Code:
 
-(define-module (haunt ui)
-  #:declarative? #f
+;; Hack to mark this module as non-declarative on Guile 3+ (which
+;; would otherwise print a warning) but not break when compiling on
+;; earlier versions of Guile.
+(define-syntax-rule (define-module* name args ...)
+  (cond-expand
+   (guile-3
+    (define-module name
+      #:declarative? #f
+      args ...))
+   (guile
+    (define-module name args ...))))
+
+(define-module* (haunt ui)
   #:use-module (ice-9 format)
   #:use-module (ice-9 ftw)
   #:use-module (ice-9 match)