dan
/
haunt
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

reader: sxml-reader: Use absolute path when loading Scheme file. 

* haunt/reader.scm (sxml-reader): Call 'load' with an absolute file
  name.
This commit is contained in:
David Thompson 2015-04-11 17:53:44 -04:00
parent ad9c4b23dd
commit be627c2cab
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
haunt/reader.scm
View File

@ -95,7 +95,7 @@ list must contain a matching reader for every post."
(define sxml-reader (define sxml-reader
(make-reader (make-file-extension-matcher "sxml") (make-reader (make-file-extension-matcher "sxml")
(lambda (file-name) (lambda (file-name)
(let ((contents (load file-name))) (let ((contents (load (absolute-file-name file-name))))
(values (alist-delete 'content contents eq?) (values (alist-delete 'content contents eq?)
(assq-ref contents 'content)))))) (assq-ref contents 'content))))))