From e469f4d5a6cf6c696f166d22ffb2acb5f3daa3c3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
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)"