From e322a02bc1c829ba29be8f3029c2d031f97da6d3 Mon Sep 17 00:00:00 2001
From: Brian Templeton <bpt@hcoop.net>
Date: Tue, 29 Jun 2010 21:18:05 -0400
Subject: [PATCH] new `load' subr

* module/language/elisp/runtime/subrs.scm: Define new subr `load'.
* module/language/elisp/runtime/function-slot.scm: Re-export `load'.
---
 module/language/elisp/runtime/function-slot.scm | 3 ++-
 module/language/elisp/runtime/subrs.scm         | 5 +++++
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/module/language/elisp/runtime/function-slot.scm b/module/language/elisp/runtime/function-slot.scm
index 971f763a8..1a953922b 100644
--- a/module/language/elisp/runtime/function-slot.scm
+++ b/module/language/elisp/runtime/function-slot.scm
@@ -82,7 +82,8 @@
                funcall
                throw
                not
-               eval)
+               eval
+               load)
   ;; macros
   #:re-export (prog1
                prog2
diff --git a/module/language/elisp/runtime/subrs.scm b/module/language/elisp/runtime/subrs.scm
index a2a086587..e01261a97 100644
--- a/module/language/elisp/runtime/subrs.scm
+++ b/module/language/elisp/runtime/subrs.scm
@@ -354,3 +354,8 @@
 (built-in-func eval
   (lambda (form)
     (compile form #:from 'elisp #:to 'value)))
+
+(built-in-func load
+  (lambda* (file)
+    (compile-file file #:from 'elisp #:to 'value)
+    #t))