Import guile-1.8 as multiple upstream tarball component

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

diff --git a/guile18/lang/elisp/primitives/load.scm b/guile18/lang/elisp/primitives/load.scm
new file mode 100644 (file)
index 0000000..a627b5d
--- /dev/null
+++ b/guile18/lang/elisp/primitives/load.scm
@@ -0,0 +1,17 @@
+(define-module (lang elisp primitives load)
+  #:use-module (lang elisp internals load)
+  #:use-module (lang elisp internals evaluation)
+  #:use-module (lang elisp internals fset))
+
+(fset 'load load)
+(re-export load-path)
+
+(fset 'eval
+      (lambda (form)
+       (eval form the-elisp-module)))
+
+(fset 'autoload
+      (lambda args
+       #t))
+
+(define-public current-load-list %nil)