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

Parsing

Browse Source
This commit is contained in:
Jay McCarthy 2011-05-05 15:51:54 -06:00
parent 12f5994191
commit dc639df1da
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scriblib/bibtex.rkt
View File

@ -129,7 +129,7 @@
[(? char-alphabetic?) [(? char-alphabetic?)
(define string-tag (read-until (λ (c) (char=? c #\,)) ip)) (define string-tag (read-until (λ (c) (char=? c #\,)) ip))
(hash-ref STRING-DB string-tag (hash-ref STRING-DB string-tag
(λ () (error 'read-value "Unknown string constant ~v" string-tag)))] (λ () string-tag))]
[c [c
(error 'read-value "Parsing value, expected {, got ~v" c)])) (error 'read-value "Parsing value, expected {, got ~v" c)]))
@ -144,8 +144,7 @@
(λ () (λ ()
(bibtex-parse (current-input-port))))) (bibtex-parse (current-input-port)))))
(printf "~v\n" (hash-count bibdb)) (printf "~v\n" (hash-count bibdb))
(error 'path->bibdb pth) bibdb)
#f)
(path->bibdb "/Users/jay/Dev/scm/github.jeapostrophe/work/papers/etc/all.bib") (path->bibdb "/Users/jay/Dev/scm/github.jeapostrophe/work/papers/etc/all.bib")