From 6acfc987f3da4e9c4adc6fc730ee99186805fed7 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Tue, 5 Jan 2016 21:32:39 -0500
Subject: [PATCH] Initial file

---
 scheme/load.sld | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 scheme/load.sld

diff --git a/scheme/load.sld b/scheme/load.sld
new file mode 100644
index 00000000..d05115e2
--- /dev/null
+++ b/scheme/load.sld
@@ -0,0 +1,15 @@
+(define-library (scheme load)
+  (export load)
+  (import (scheme base) 
+          (scheme eval) 
+          (scheme file)
+          (scheme read))
+  (begin
+    (define (load filename)
+      (let ((exprs (call-with-input-file filename
+                     (lambda (port)
+                       (read-all port)))))
+        (for-each
+          (lambda (expr)
+            (eval expr))
+          exprs)))))