Import guile-1.8 as multiple upstream tarball component

[lilypond.git] / guile18 / lang / elisp / primitives / guile.scm

diff --git a/guile18/lang/elisp/primitives/guile.scm b/guile18/lang/elisp/primitives/guile.scm
new file mode 100644 (file)
index 0000000..059f2bb
--- /dev/null
+++ b/guile18/lang/elisp/primitives/guile.scm
@@ -0,0 +1,20 @@
+(define-module (lang elisp primitives guile)
+  #:use-module (lang elisp internals fset))
+
+;;; {Importing Guile procedures into Elisp}
+
+;; It may be worthwhile to import some Guile procedures into the Elisp
+;; environment.  For now, though, we don't do this.
+
+(if #f
+    (let ((accessible-procedures
+          (apropos-fold (lambda (module name var data)
+                          (cons (cons name var) data))
+                        '()
+                        ""
+                        (apropos-fold-accessible (current-module)))))
+      (for-each (lambda (name var)
+                 (if (procedure? var)
+                     (fset name var)))
+               (map car accessible-procedures)
+               (map cdr accessible-procedures))))