Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

fixed bug found by Matthew O'Connor

  • Loading branch information...
commit 803c4f6d4b86e11d2810dda73fca487f45b4f04c 1 parent 46cc340
Joshua Choi authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/name/choi/joshua/fnparse/json.clj
4 src/name/choi/joshua/fnparse/json.clj
View
@@ -230,9 +230,9 @@
(binding [*remainder-accessor* remainder-a] ; this is completely
; optional
(rule-match text
- #(raise parse-error "invalid document \"%s\""
+ #(raise parse-error % "invalid document \"%s\""
(apply-str (remainder-a %)))
- #(raise parse-error "leftover data after a valid node \"%s\""
+ #(raise parse-error %2 "leftover data after a valid node \"%s\""
(apply-str (remainder-a %2)))
(struct state-s tokens 0 0))))
; The call to rule-match above is equivalent to the stuff below:
Please sign in to comment.
Something went wrong with that request. Please try again.