From be627c2cab79a51320c4a0c76b2e25cc2e1b22e6 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 11 Apr 2015 17:53:44 -0400
Subject: [PATCH] reader: sxml-reader: Use absolute path when loading Scheme
 file.

* haunt/reader.scm (sxml-reader): Call 'load' with an absolute file
  name.
---
 haunt/reader.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/haunt/reader.scm b/haunt/reader.scm
index 05aed8c..e1ab044 100644
--- a/haunt/reader.scm
+++ b/haunt/reader.scm
@@ -95,7 +95,7 @@ list must contain a matching reader for every post."
 (define sxml-reader
   (make-reader (make-file-extension-matcher "sxml")
                (lambda (file-name)
-                 (let ((contents (load file-name)))
+                 (let ((contents (load (absolute-file-name file-name))))
                    (values (alist-delete 'content contents eq?)
                            (assq-ref contents 'content))))))