From b7cd18d8811677aafffda46819598fb9d47a887c Mon Sep 17 00:00:00 2001 From: Jay McCarthy Date: Thu, 5 May 2011 15:51:54 -0600 Subject: [PATCH] Parsing original commit: dc639df1da0f41ba42258cd3822d4b0372fbd0cb --- collects/scriblib/bibtex.rkt | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/collects/scriblib/bibtex.rkt b/collects/scriblib/bibtex.rkt index 0f7315ac..8fa66f02 100644 --- a/collects/scriblib/bibtex.rkt +++ b/collects/scriblib/bibtex.rkt @@ -129,7 +129,7 @@ [(? char-alphabetic?) (define string-tag (read-until (λ (c) (char=? c #\,)) ip)) (hash-ref STRING-DB string-tag - (λ () (error 'read-value "Unknown string constant ~v" string-tag)))] + (λ () string-tag))] [c (error 'read-value "Parsing value, expected {, got ~v" c)])) @@ -144,8 +144,7 @@ (λ () (bibtex-parse (current-input-port))))) (printf "~v\n" (hash-count bibdb)) - (error 'path->bibdb pth) - #f) + bibdb) (path->bibdb "/Users/jay/Dev/scm/github.jeapostrophe/work/papers/etc/all.bib")