diff options
Diffstat (limited to 'haunt/ui.scm')
| -rw-r--r-- | haunt/ui.scm | 15 |
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) |