diff --git a/collects/meta/web/common/distribute.rkt b/collects/meta/web/common/distribute.rkt index c87c978b26..9fd59f7f90 100644 --- a/collects/meta/web/common/distribute.rkt +++ b/collects/meta/web/common/distribute.rkt @@ -2,8 +2,8 @@ (require racket/system racket/list racket/promise) -(define rsync-exe (delay (or (find-executable-path "rsync") - (error 'distribute "couldn't find `rsync'")))) +(define rsync-exe (lazy (or (find-executable-path "rsync") + (error 'distribute "couldn't find `rsync'")))) (define (rsync . args) (unless (apply system* (force rsync-exe) args) diff --git a/collects/meta/web/minis/drracket.rkt b/collects/meta/web/minis/drracket.rkt index 96ee0b91d3..bc1c5bb0ca 100644 --- a/collects/meta/web/minis/drracket.rkt +++ b/collects/meta/web/minis/drracket.rkt @@ -7,7 +7,7 @@ ;; name. (define index - (page #:title "DrRacket" #:extra-headers (delay headers) (center-div logo))) + (page #:title "DrRacket" #:extra-headers (lazy headers) (center-div logo))) (require (only-in "../www/all.rkt" main)) diff --git a/collects/meta/web/stubs/dirlist.rkt b/collects/meta/web/stubs/dirlist.rkt index 54f4765779..e4a9faa81e 100644 --- a/collects/meta/web/stubs/dirlist.rkt +++ b/collects/meta/web/stubs/dirlist.rkt @@ -7,11 +7,11 @@ (define-context "stubs/dirlist" #:resources dnld:the-resources) (define header+footer - (delay (regexp-split #rx"{{{BODY}}}" - (xml->string @page[#:id 'browse-downloads - #:html-only #t - #:part-of 'download - "{{{BODY}}}"])))) + (lazy (regexp-split #rx"{{{BODY}}}" + (xml->string @page[#:id 'browse-downloads + #:html-only #t + #:part-of 'download + "{{{BODY}}}"])))) (define header @plain[#:file "header.html" (car (force header+footer))]) (define footer @plain[#:file "footer.html" (cadr (force header+footer))]) diff --git a/collects/meta/web/stubs/git.rkt b/collects/meta/web/stubs/git.rkt index e7a7b3e21c..76130fa74a 100644 --- a/collects/meta/web/stubs/git.rkt +++ b/collects/meta/web/stubs/git.rkt @@ -11,18 +11,18 @@ ;; gitweb stuff (define header+footer - (delay (cdr (or (regexp-match - ;; extract just the meat between the ... - #rx"]*>(.*?){{{BODY}}}(.*?)" - (xml->string @page[#:id 'git #:html-only #t "{{{BODY}}}"])) - (error 'gitweb-skeleton "internal error"))))) + (lazy (cdr (or (regexp-match + ;; extract just the meat between the ... + #rx"]*>(.*?){{{BODY}}}(.*?)" + (xml->string @page[#:id 'git #:html-only #t "{{{BODY}}}"])) + (error 'gitweb-skeleton "internal error"))))) (define header @plain[#:file "header.html" (car (force header+footer))]) (define footer @plain[#:file "footer.html" (cadr (force header+footer))]) (define gitweb-logo (copyfile (in-here "gitweb-logo.png") "tiny-logo.png")) (define home-text - (delay @text{ + (lazy @text{ @p{This is the Racket git server.} @p{See the "brief", PLT-oriented @intro{introduction to git}.}})) (define home-file @plain[#:file "home-text.html" #:referrer values home-text]) diff --git a/collects/meta/web/www/index.rkt b/collects/meta/web/www/index.rkt index 1e39b845d1..a880756ab7 100644 --- a/collects/meta/web/www/index.rkt +++ b/collects/meta/web/www/index.rkt @@ -262,7 +262,7 @@ (define index (page #:link-title "About" #:window-title "Racket" #:extra-headers @list{@meta[name: 'description content: blurb] - @(delay more.css)} + @(lazy more.css)} @div[class: 'leftpane]{ @span[style: "font-size: large; font-weight: bold;"]{Racket} is a programming language. diff --git a/collects/meta/web/www/old-techreports.rkt b/collects/meta/web/www/old-techreports.rkt index 5129478488..79c1711bb9 100644 --- a/collects/meta/web/www/old-techreports.rkt +++ b/collects/meta/web/www/old-techreports.rkt @@ -274,8 +274,8 @@ (define (display-attr attr) (let* ([prefix (format " ~a = {" (car attr))] - [sep (delay (string-append "\n" (make-string (string-length prefix) - #\space)))]) + [sep (lazy (string-append "\n" (make-string (string-length prefix) + #\space)))]) (display* prefix (if (regexp-match? #rx"\n" (cdr attr)) (regexp-replace* #rx"\n" (cdr attr) (force sep)) diff --git a/collects/scribble/html/resource.rkt b/collects/scribble/html/resource.rkt index dec2d404ab..ccaebfac60 100644 --- 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))