From ec79e5ad1f9614038575989e96e9f5c075a33efe Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Mon, 12 Oct 2015 19:29:57 -0400
Subject: utils: Add make-user-module.

* haunt/utils.scm (make-user-module): New procedure.
---
 haunt/utils.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/haunt/utils.scm b/haunt/utils.scm
index 5fd97c7..29e6ef2 100644
--- a/haunt/utils.scm
+++ b/haunt/utils.scm
@@ -38,7 +38,8 @@
             delete-file-recursively
             mkdir-p
             string->date*
-            take-up-to))
+            take-up-to
+            make-user-module))
 
 (define* (flatten lst #:optional depth)
   "Return a list that recursively concatenates the sub-lists of LST,
@@ -146,3 +147,11 @@ are fewer than N elements."
         (() '())
         ((head . tail)
          (cons head (take-up-to (1- n) tail))))))
+
+(define (make-user-module modules)
+  "Return a new user module with the additional MODULES loaded."
+  (let ((module (make-fresh-user-module)))
+    (for-each (lambda (iface)
+                (module-use! module (resolve-interface iface)))
+              modules)
+    module))
-- 
cgit v1.2.3