From 4a88753757201c030f3db4c939280bf7f5b59fb9 Mon Sep 17 00:00:00 2001
From: Ben Greenman <benjaminlgreenman@gmail.com>
Date: Thu, 2 May 2019 00:05:55 -0400
Subject: [PATCH] autobib: book-chapter fixes

- move `)` for contract-out
- fix keyword in contract
- add `to-string` uses
---
 scribble-lib/scriblib/autobib.rkt | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/scribble-lib/scriblib/autobib.rkt b/scribble-lib/scriblib/autobib.rkt
index 8fa4c44b..ea23af09 100644
--- a/scribble-lib/scriblib/autobib.rkt
+++ b/scribble-lib/scriblib/autobib.rkt
@@ -28,9 +28,9 @@
           [techrpt-location
            (-> #:institution any/c #:number any/c element?)]
           [dissertation-location
-           (->* [#:institution any/c] [#:degree any/c] element?)])
+           (->* [#:institution any/c] [#:degree any/c] element?)]
           [book-chapter-location
-           (->* [any/c] [#:pages (or/c (list/c any/c any/c) #f) #:section any/c #:volume any/c #:publisher any/c] element?)]
+           (->* [any/c] [#:pages (or/c (list/c any/c any/c) #f) #:series any/c #:volume any/c #:publisher any/c] element?)])
          other-authors
          editor
          abbreviate-given-names)
@@ -571,18 +571,18 @@
          #:series [series #f]
          #:volume [volume #f]
          #:publisher [publisher #f])
-  (let* ([s @elem{In @italic{@elem{@|location|}}}]
+  (let* ([s @elem{In @italic{@elem{@to-string[location]}}}]
          [s (if series
-                @elem{@|s|, @(format "~a" series)}
+                @elem{@|s|, @to-string[series]}
                 s)]
          [s (if volume
-                @elem{@|s| volume @(format "~a" volume)}
+                @elem{@|s| volume @to-string[volume]}
                 s)]
          [s (if pages
                 @elem{@|s|, pp. @(to-string (car pages))--@(to-string (cadr pages))}
                 s)]
           [s (if publisher
-                @elem{@|s| @(format "~a" publisher)}
+                @elem{@|s| @to-string[publisher]}
                 s)])
     s))