From e48b814b17346e702aecf6960262f29c13467a8d Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@cs.wpi.edu>
Date: Fri, 6 Jul 2012 11:48:36 -0400
Subject: [PATCH] Correcting type error in latex-match: target-url-addr can be
 a path, which can't be consumed by regexp-replace

original commit: 0a5e92c299c7f2edd8540d1d127f5c887ce750c7
---
 collects/scribble/latex-render.rkt | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/collects/scribble/latex-render.rkt b/collects/scribble/latex-render.rkt
index f2285a43..f0544803 100644
--- a/collects/scribble/latex-render.rkt
+++ b/collects/scribble/latex-render.rkt
@@ -388,7 +388,12 @@
                   (let ([v (car l)])
                     (cond
                      [(target-url? v)
-                      (printf "\\href{~a}{" (regexp-replace* #rx"%" (target-url-addr v) "\\\\%"))
+                      (printf "\\href{~a}{" (regexp-replace* #rx"%"
+                                                             (let ([p (target-url-addr v)])
+                                                               (if (path? p)
+                                                                   (path->string p)
+                                                                   p))
+                                                             "\\\\%"))
                       (loop (cdr l) #t)
                       (printf "}")]
                      [(color-property? v)