From 7c7b161885c65d870be2aac680a2d4903d5c468a Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sat, 11 Apr 2015 14:53:52 -0400 Subject: 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 (): Replace 'sxml' field with 'contents'. (page-sxml): Delete accessor. (page-contents): New accessor. (write-page): s/sxml/contents/ --- haunt/page.scm | 8 ++++---- 1 file 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 - (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 - (($ file-name sxml writer) + (($ 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 <>)))))) -- cgit v1.2.3