diff options
| -rw-r--r-- | src/guile/skribilo/engine.scm | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/guile/skribilo/engine.scm b/src/guile/skribilo/engine.scm index 691b801..dd0bfb5 100644 --- a/src/guile/skribilo/engine.scm +++ b/src/guile/skribilo/engine.scm @@ -277,8 +277,14 @@ (define (engine-loaded? id) "Check whether engine @var{id} is already loaded." ;; Trick taken from `resolve-module' in `boot-9.scm'. - (nested-ref the-root-module - `(%app modules ,@(engine-id->module-name id)))) + (cond-expand (guile-2 + (nested-ref-module (resolve-module '() #f) + (engine-id->module-name id))) + (else + ;; This method works for 1.8 but is deprecated in 1.9/2.0 and + ;; doesn't work with 1.9.11 anyway. + (nested-ref the-root-module + `(%app modules ,@(engine-id->module-name id)))))) ;; A mapping of engine names to hooks. (define %engine-load-hook (make-hash-table)) |