suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Fix lots of indentation mistakes.

Browse Source 
(Found by my ayatollah script...)

original commit: af6be85ff576e475753a46bd3f1690eb8bf88a28
This commit is contained in:
Eli Barzilay 2013-03-14 07:15:43 -04:00
parent 4c5c4342ef
commit 3cbb1e4e0e
3 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scribble/core.rkt
View File

@ -19,7 +19,7 @@
(when old-val (when old-val
(eprintf "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n" (eprintf "WARNING: collected information for key multiple times: ~e; values: ~e ~e\n"
key old-val val)) key old-val val))
(hash-set! ht key val)))) (hash-set! ht key val))))
(define (resolve-get/where part ri key) (define (resolve-get/where part ri key)
(let ([key (tag-key key ri)]) (let ([key (tag-key key ri)])

6
collects/scribble/private/manual-vars.rkt
View File

@ -112,9 +112,9 @@
(bound-identifier-mapping-put! ht #'arg #t)] (bound-identifier-mapping-put! ht #'arg #t)]
[else (void)]))) [else (void)])))
(cdr s-exp)) (cdr s-exp))
(unless (identifier? (car s-exp)) (unless (identifier? (car s-exp))
;; Curried: ;; Curried:
(do-proc (car s-exp)))))]) (do-proc (car s-exp)))))])
(do-proc s-exp))] (do-proc s-exp))]
[(form form/none form/maybe non-term) [(form form/none form/maybe non-term)
(define skip-id (case (syntax-e kind) (define skip-id (case (syntax-e kind)

2
collects/scriblib/autobib.rkt
View File

@ -157,7 +157,7 @@
(add-cite group (car v) 'autobib-author #f #f style) (add-cite group (car v) 'autobib-author #f #f style)
(add-date-cites group v (send style get-item-sep) style sort? bib-date<? bib-date=?))))) (add-date-cites group v (send style get-item-sep) style sort? bib-date<? bib-date=?)))))
(send style get-group-sep)) (send style get-group-sep))
(list (send style get-cite-close))))) (list (send style get-cite-close)))))
(define (extract-bib-author b) (define (extract-bib-author b)
(or (auto-bib-author b) (or (auto-bib-author b)