commit 984496bef4824b623f6a099a225b95536ad872b3 parent 27ac7bce2fb5a1a6640a105e2929f83bed17bcbe Author: Eli Barzilay <eli@barzilay.org> Date: Mon, 26 Dec 2011 04:37:46 -0500 Switch `delay's to `lazy's. original commit: c8c13e46bb8412b10a97acf490e015dd72079615 Diffstat:
| M | collects/scribble/html/resource.rkt | | | 12 | ++++++------ |
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/collects/scribble/html/resource.rkt b/collects/scribble/html/resource.rkt @@ -198,12 +198,12 @@ (renderer filename)))))) (define (url) (relativize filename dirpathlist (rendered-dirpath))) (define absolute-url - (delay (define url (relativize filename dirpathlist '())) - (if (url-roots) - url - ;; we're in local build mode, and insist on an absolute url, so - ;; construct a `file://' result - (list* "file://" (current-directory) url)))) + (lazy (define url (relativize filename dirpathlist '())) + (if (url-roots) + url + ;; we're in local build mode, and insist on an absolute url, so + ;; construct a `file://' result + (list* "file://" (current-directory) url)))) (add-renderer path render) (make-keyword-procedure (lambda (kws kvs . args) (keyword-apply referrer kws kvs (url) args))