suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

Switch delay's to lazy's.

Browse Source 
original commit: c8c13e46bb8412b10a97acf490e015dd72079615
This commit is contained in:
Eli Barzilay 2011-12-26 04:37:46 -05:00
parent 27ac7bce2f
commit 984496bef4
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/scribble/html/resource.rkt
View File

@ -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))