publisher: Throw an error if name isn't a symbol.

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))