diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-04-11 17:53:44 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-04-11 17:53:44 -0400 |
| commit | be627c2cab79a51320c4a0c76b2e25cc2e1b22e6 (patch) | |
| tree | 731cfdb89d90827c8a7b184ec7faa03d7b9a8004 | |
| parent | ad9c4b23dd57da1cfe0e9d05414d06a5056a5b6e (diff) | |
reader: sxml-reader: Use absolute path when loading Scheme file.
* haunt/reader.scm (sxml-reader): Call 'load' with an absolute file
name.
| -rw-r--r-- | haunt/reader.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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)))))) |