bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit 4a88753757201c030f3db4c939280bf7f5b59fb9
parent dce36bfc1857c57a3a52a0ccdf92e280ca2fee1b
Author: Ben Greenman <benjaminlgreenman@gmail.com>
Date:   Thu,  2 May 2019 00:05:55 -0400

autobib: book-chapter fixes

- move `)` for contract-out
- fix keyword in contract
- add `to-string` uses

Diffstat:
M
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
@@ -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))