From 6994f11c56b0eda6f14a36102daca1a8bb339c03 Mon Sep 17 00:00:00 2001 From: Stefan Israelsson Tampe Date: Mon, 14 May 2018 22:36:44 +0200 Subject: better int --- modules/language/python/module/builtins.scm | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 modules/language/python/module/builtins.scm (limited to 'modules/language/python/module/builtins.scm') 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)) + -- cgit v1.2.3