home *** CD-ROM | disk | FTP | other *** search
/ Mac Easy 2010 May / Mac Life Ubuntu.iso / casper / filesystem.squashfs / usr / share / guile / 1.8 / lang / elisp / primitives / guile.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  605 b   |  21 lines
  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))))
  21.