diff options
-rw-r--r-- | haunt/publisher.scm | 7 |
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)) |