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 / load.scm < prev    next >
Encoding:
Text File  |  2008-12-17  |  369 b   |  18 lines
  1. (define-module (lang elisp primitives load)
  2.   #:use-module (lang elisp internals load)
  3.   #:use-module (lang elisp internals evaluation)
  4.   #:use-module (lang elisp internals fset))
  5.  
  6. (fset 'load load)
  7. (re-export load-path)
  8.  
  9. (fset 'eval
  10.       (lambda (form)
  11.     (eval form the-elisp-module)))
  12.  
  13. (fset 'autoload
  14.       (lambda args
  15.     #t))
  16.  
  17. (define-public current-load-list %nil)
  18.