1 files changed, 9 insertions, 1 deletions
diff --git a/modules/language/python/module.scm b/modules/language/python/module.scm
index 16204e4..87f9207 100644
--- a/modules/language/python/module.scm
+++ b/modules/language/python/module.scm
@@ -8,7 +8,7 @@
   #:use-module (language python try)
   #:use-module (language python dir)
   #:use-module (language python list)
-  #:export (Module private public import))
+  #:export (Module private public import __import__ modules))
 
 (define-syntax-rule (aif it p x y) (let ((it p)) (if it x y)))
 
@@ -232,3 +232,11 @@
 	  (begin (apply (rawref x '__update__) x l) x)
 	  (apply f l))
       (apply f l)))
+
+(define modules (make-hash-table))
+(define (__import__ x)
+  (let ((x (py-get modules x #f)))
+    (if x
+        (values)
+        (let ((e (Module x)))
+          (pylist-set! modules x e)))))