summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2018-04-22 19:07:39 +0200
committerLudovic Courtès2018-04-22 19:07:39 +0200
commit9474deb63346db6b463a6346f971b974db42fcda (patch)
treea995c2bc14aa2dde048e700c93f17cd3f05e09ba
parent418a759052bbcc48012e2f99e105df796f1453b3 (diff)
downloadskribilo-9474deb63346db6b463a6346f971b974db42fcda.tar.gz
skribilo-9474deb63346db6b463a6346f971b974db42fcda.tar.lz
skribilo-9474deb63346db6b463a6346f971b974db42fcda.zip
'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!'.
-rw-r--r--src/guile/skribilo/package/base.scm6
1 files changed, 6 insertions, 0 deletions
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 ... */
;*---------------------------------------------------------------------*/