diff options
author | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-05-14 22:36:44 +0200 |
---|---|---|
committer | Stefan Israelsson Tampe <stefan.itampe@gmail.com> | 2018-05-14 22:36:44 +0200 |
commit | 6994f11c56b0eda6f14a36102daca1a8bb339c03 (patch) | |
tree | d6fb1ee9c0a8be3da5f530b7edfa8b257333648c /modules/language/python/module/builtins.scm | |
parent | ba256d9aaabbe71a8c526585e22d455a9d2066fd (diff) |
better int
Diffstat (limited to 'modules/language/python/module/builtins.scm')
-rw-r--r-- | modules/language/python/module/builtins.scm | 20 |
1 files changed, 20 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)) + |