1 |
|
(define-module (lang elisp primitives guile) |
2 |
|
#:use-module (lang elisp internals fset)) |
3 |
|
|
4 |
|
;;; {Importing Guile procedures into Elisp} |
5 |
|
|
6 |
|
;; It may be worthwhile to import some Guile procedures into the Elisp |
7 |
|
;; environment. For now, though, we don't do this. |
8 |
|
|
9 |
|
(if #f |
10 |
|
(let ((accessible-procedures |
11 |
|
(apropos-fold (lambda (module name var data) |
12 |
|
(cons (cons name var) data)) |
13 |
|
'() |
14 |
|
"" |
15 |
|
(apropos-fold-accessible (current-module))))) |
16 |
|
(for-each (lambda (name var) |
17 |
|
(if (procedure? var) |
18 |
|
(fset name var))) |
19 |
|
(map car accessible-procedures) |
20 |
|
(map cdr accessible-procedures)))) |