fix bug in error msgp

11 years ago · 57a991622e
parent eb0e996689
commit 57a991622e
1 changed files with 1 additions and 1 deletions
--- a/decode.rkt
+++ b/decode.rkt
@ -11,7 +11,7 @@
 (define (to-string x)
  (if (string? x)
      x ; fast exit for strings
-      (with-handlers  ([exn:fail? (λ(exn) (error "Can't convert ~a to ~a" x 'string))])
+      (with-handlers  ([exn:fail? (λ(exn) (error (format "Pollen parser: can't convert ~a to ~a" x 'string)))])
        (cond
          [(equal? '() x) ""]
          [(symbol? x) (symbol->string x)]