summaryrefslogtreecommitdiff
path: root/modules/language/python/module
diff options
context:
space:
mode:
authorStefan Israelsson Tampe <stefan.itampe@gmail.com>2018-05-14 22:36:44 +0200
committerStefan Israelsson Tampe <stefan.itampe@gmail.com>2018-05-14 22:36:44 +0200
commit6994f11c56b0eda6f14a36102daca1a8bb339c03 (patch)
treed6fb1ee9c0a8be3da5f530b7edfa8b257333648c /modules/language/python/module
parentba256d9aaabbe71a8c526585e22d455a9d2066fd (diff)
better int
Diffstat (limited to 'modules/language/python/module')
-rw-r--r--modules/language/python/module/builtins.scm20
-rw-r--r--modules/language/python/module/signal.scm5
2 files changed, 25 insertions, 0 deletions
diff --git a/modules/language/python/module/builtins.scm b/modules/language/python/module/builtins.scm
new file mode 100644
index 0000000..5b54a07
--- /dev/null
+++ b/modules/language/python/module/builtins.scm
@@ -0,0 +1,20 @@
+(define-module (language python module builtins)
+ #:use-module (language python module python))
+
+(define-syntax re-export-all
+ (syntax-rules ()
+ [(_ iface)
+ (module-for-each
+ (lambda (name . l)
+ (module-re-export! (current-module) ((@ (guile) list) name)))
+ (resolve-interface 'iface))]
+ [(_ iface _ li)
+ (let ((l 'li))
+ (module-for-each
+ (lambda (name . l)
+ (if (not (member name l))
+ (module-re-export! (current-module) ((@ (guile) list) name))))
+ (resolve-interface 'iface)))]))
+
+(re-export-all (language python module python))
+
diff --git a/modules/language/python/module/signal.scm b/modules/language/python/module/signal.scm
new file mode 100644
index 0000000..f0d4426
--- /dev/null
+++ b/modules/language/python/module/signal.scm
@@ -0,0 +1,5 @@
+(define-module (language python module signal)
+ #:use-module (language python module enum)
+ #:export ())
+
+