guile18/lang/elisp/primitives/guile.scm

   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))))