Correcting type error in latex-match: target-url-addr can be a path, which can't be consumed by regexp-replace

original commit: 0a5e92c299c7f2edd8540d1d127f5c887ce750c7
2012-07-06 11:48:36 -04:00 · 2012-07-06 11:48:36 -04:00 · e48b814b17
commit e48b814b17
parent 793a83e339
1 changed files with 6 additions and 1 deletions
--- 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)