diff options
| author | Ludovic Courtès | 2018-04-22 19:07:39 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2018-04-22 19:07:39 +0200 |
| commit | 9474deb63346db6b463a6346f971b974db42fcda (patch) | |
| tree | a995c2bc14aa2dde048e700c93f17cd3f05e09ba | |
| parent | 418a759052bbcc48012e2f99e105df796f1453b3 (diff) | |
| download | skribilo-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.scm | 6 |
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 ... */ ;*---------------------------------------------------------------------*/ |