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