fixed bug found by Matthew O'Connor

js-choi · Aug 23, 2010 · 803c4f6 · 803c4f6
1 parent 46cc340
commit 803c4f6
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/name/choi/joshua/fnparse/json.clj b/src/name/choi/joshua/fnparse/json.clj
@@ -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: