diff options
| -rw-r--r-- | haunt/page.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/haunt/page.scm b/haunt/page.scm index 4d9fa69..c496c45 100644 --- a/haunt/page.scm +++ b/haunt/page.scm @@ -35,15 +35,15 @@ write-page)) (define-record-type <page> - (make-page file-name sxml writer) + (make-page file-name contents writer) page? (file-name page-file-name) - (sxml page-sxml) + (contents page-contents) (writer page-writer)) (define (write-page page output-directory) "Write PAGE to OUTPUT-DIRECTORY." (match page - (($ <page> file-name sxml writer) + (($ <page> file-name contents writer) (let ((output (string-append output-directory "/" file-name))) - (call-with-output-file output (cut writer sxml <>)))))) + (call-with-output-file output (cut writer contents <>)))))) |