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

[Christopher Allan Webber]

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

commit 4455381dc7a3fccf2b9f84d55cf61bb1f6010f83
Author: Robin Templeton <address@hidden>
Date:   Mon Aug 11 06:05:45 2014 -0400

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

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))))