From 7a5e90f48f29f30abe3dae44c92bfd398bcd32eb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 5 Dec 2011 17:59:23 -0600 Subject: [PATCH] use build-path to construct path segments instead of putting slashes into strings --- collects/icons/private/svg.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/icons/private/svg.rkt b/collects/icons/private/svg.rkt index b10a6501cb..2e7f472c73 100644 --- a/collects/icons/private/svg.rkt +++ b/collects/icons/private/svg.rkt @@ -22,7 +22,7 @@ (let ([h (for/first ([h (in-list hs)] #:when (height . <= . h)) h)]) (if h h (last hs)))) (define icon-path - (build-path svg-icons-base-path (format "~a/~a/~a.png" category icon-height name))) + (build-path svg-icons-base-path category (format "~a" icon-height) (format "~a.png" name))) (scale (bitmap icon-path) (/ height icon-height))) (defproc (load-icon [category string?] [name string?] [height (>=/c 0)]) (is-a?/c bitmap%)