diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-04-11 14:53:52 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-04-11 15:10:45 -0400 |
| commit | 7c7b161885c65d870be2aac680a2d4903d5c468a (patch) | |
| tree | 474ffce2cb544a6401fd352ab902806f4d215b63 | |
| parent | 4d99832b6befd10779b6a6fde0568cbc376e3685 (diff) | |
page: Change sxml field to contents.
Naming the field 'sxml' is a poor choice because it may contain any type
of data that the writer procedure accepts.
* haunt/page.scm (<page>): Replace 'sxml' field with 'contents'.
(page-sxml): Delete accessor.
(page-contents): New accessor.
(write-page): s/sxml/contents/
| -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 <>)))))) |