[Guile-commits] 27/36: execute top level require forms

[Christopher Allan Webber]

cwebber pushed a commit to branch wip-elisp-rebased
in repository guile.

commit 4b9231467611bb985736efe0ba3f34fc52365897
Author: Robin Templeton <robin@terpri.org>
AuthorDate: Mon Aug 11 06:05:45 2014 -0400

    execute top level require forms
    
    (Best-ability ChangeLog annotation added by Christine Lemmer-Webber.)
    
    * module/language/elisp/boot.el (require): New compiler macro.
---
 module/language/elisp/boot.el | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/module/language/elisp/boot.el b/module/language/elisp/boot.el
index 4e8347f..e6d3994 100644
--- a/module/language/elisp/boot.el
+++ b/module/language/elisp/boot.el
@@ -790,3 +790,7 @@
 
 (defun %set-eager-macroexpansion-mode (ignore)
   nil)
+
+(%define-compiler-macro require (form)
+  `(eval-when (:compile-toplevel :load-toplevel :execute)
+     (funcall #'require ,@(cdr form))))