summaryrefslogtreecommitdiff
path: root/haunt/publisher.scm
diff options
context:
space:
mode:
Diffstat (limited to 'haunt/publisher.scm')
-rw-r--r--haunt/publisher.scm7
1 files changed, 6 insertions, 1 deletions
diff --git a/haunt/publisher.scm b/haunt/publisher.scm
index f3a8d4d..b9dcf38 100644
--- a/haunt/publisher.scm
+++ b/haunt/publisher.scm
@@ -35,11 +35,16 @@
(define %default-publisher-name 'production)
(define-record-type <publisher>
- (make-publisher name proc)
+ (%make-publisher name proc)
publisher?
(name publisher-name)
(proc publisher-proc))
+(define (make-publisher name proc)
+ (unless (symbol? name)
+ (error "expected symbol for publisher name" name))
+ (%make-publisher name proc))
+
(define (publish publisher site)
((publisher-proc publisher) site))