blob: 5b54a079e20775a0f0ef963ae9de51c202481e21 (
about) (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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))
|