From e469f4d5a6cf6c696f166d22ffb2acb5f3daa3c3 Mon Sep 17 00:00:00 2001 From: Justin Ethier Date: Wed, 26 Apr 2017 17:22:33 -0400 Subject: [PATCH] Added (imported?) --- scheme/eval.sld | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/scheme/eval.sld b/scheme/eval.sld index 5ed800b4..05a3c4cf 100644 --- a/scheme/eval.sld +++ b/scheme/eval.sld @@ -23,6 +23,7 @@ setup-environment ; non-standard ;; Dynamic import %import + imported? ) (begin @@ -624,6 +625,10 @@ (set! *global-environment* (setup-environment *initial-environment*)) #t)) +;; Is the given library loaded? +(define (imported? lis) + (c:lib-loaded? (lib:name->unique-string (lib:list->import-set lis)))) + ;; Wrapper around the actual shared object import function (define-c c:import-shared-obj "(void *data, int argc, closure _, object k, object fn, object entry_fnc)"