From 57a991622eebcca1bcce905a2d3ae50b20711939 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 20 Feb 2014 19:43:45 -0800
Subject: [PATCH] fix bug in error msgp

---
 decode.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/decode.rkt b/decode.rkt
index c2ef829..5639acf 100644
--- 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)]