From 9474deb63346db6b463a6346f971b974db42fcda Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 22 Apr 2018 19:07:39 +0200
Subject: 'base' package: Replace the 'include' form on Guile 2.x.

* src/guile/skribilo/package/base.scm: Add 'cond-expand' form with call
to 'module-replace!'.
---
 src/guile/skribilo/package/base.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index fa89c81..2e5ab65 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -68,6 +68,12 @@
     (invalid-argument-error 'include file 'file))
   (include-document file))
 
+(cond-expand
+  (guile-2
+   ;; On Guile 2.x, replace the 'include' core binding.
+   (module-replace! (current-module) '(include)))
+  (else #t))
+
 ;*---------------------------------------------------------------------*/
 ;*    document ...                                                     */
 ;*---------------------------------------------------------------------*/
-- 
cgit v1.2.3