suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Switch delay's to lazy's.

Browse Source
This commit is contained in:
Eli Barzilay 2011-12-26 04:37:46 -05:00
parent ace5fdf1f3
commit c8c13e46bb
7 changed files with 23 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/web/common/distribute.rkt
View File

@ -2,8 +2,8 @@
(require racket/system racket/list racket/promise) (require racket/system racket/list racket/promise)
(define rsync-exe (delay (or (find-executable-path "rsync") (define rsync-exe (lazy (or (find-executable-path "rsync")
(error 'distribute "couldn't find `rsync'")))) (error 'distribute "couldn't find `rsync'"))))
(define (rsync . args) (define (rsync . args)
(unless (apply system* (force rsync-exe) args) (unless (apply system* (force rsync-exe) args)

2
collects/meta/web/minis/drracket.rkt
View File

@ -7,7 +7,7 @@
;; name. ;; name.
(define index (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)) (require (only-in "../www/all.rkt" main))

10
collects/meta/web/stubs/dirlist.rkt
View File

@ -7,11 +7,11 @@
(define-context "stubs/dirlist" #:resources dnld:the-resources) (define-context "stubs/dirlist" #:resources dnld:the-resources)
(define header+footer (define header+footer
(delay (regexp-split #rx"{{{BODY}}}" (lazy (regexp-split #rx"{{{BODY}}}"
(xml->string @page[#:id 'browse-downloads (xml->string @page[#:id 'browse-downloads
#:html-only #t #:html-only #t
#:part-of 'download #:part-of 'download
"{{{BODY}}}"])))) "{{{BODY}}}"]))))
(define header @plain[#:file "header.html" (car (force header+footer))]) (define header @plain[#:file "header.html" (car (force header+footer))])
(define footer @plain[#:file "footer.html" (cadr (force header+footer))]) (define footer @plain[#:file "footer.html" (cadr (force header+footer))])

12
collects/meta/web/stubs/git.rkt
View File

@ -11,18 +11,18 @@
;; gitweb stuff ;; gitweb stuff
(define header+footer (define header+footer
(delay (cdr (or (regexp-match (lazy (cdr (or (regexp-match
;; extract just the meat between the <body>...</body> ;; extract just the meat between the <body>...</body>
#rx"<body[^<>]*>(.*?){{{BODY}}}(.*?)</body>" #rx"<body[^<>]*>(.*?){{{BODY}}}(.*?)</body>"
(xml->string @page[#:id 'git #:html-only #t "{{{BODY}}}"])) (xml->string @page[#:id 'git #:html-only #t "{{{BODY}}}"]))
(error 'gitweb-skeleton "internal error"))))) (error 'gitweb-skeleton "internal error")))))
(define header @plain[#:file "header.html" (car (force header+footer))]) (define header @plain[#:file "header.html" (car (force header+footer))])
(define footer @plain[#:file "footer.html" (cadr (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 gitweb-logo (copyfile (in-here "gitweb-logo.png") "tiny-logo.png"))
(define home-text (define home-text
(delay @text{ (lazy @text{
@p{This is the Racket git server.} @p{This is the Racket git server.}
@p{See the "brief", PLT-oriented @intro{introduction to git}.}})) @p{See the "brief", PLT-oriented @intro{introduction to git}.}}))
(define home-file @plain[#:file "home-text.html" #:referrer values home-text]) (define home-file @plain[#:file "home-text.html" #:referrer values home-text])

2
collects/meta/web/www/index.rkt
View File

@ -262,7 +262,7 @@
(define index (define index
(page #:link-title "About" #:window-title "Racket" (page #:link-title "About" #:window-title "Racket"
#:extra-headers @list{@meta[name: 'description content: blurb] #:extra-headers @list{@meta[name: 'description content: blurb]
@(delay more.css)} @(lazy more.css)}
@div[class: 'leftpane]{ @div[class: 'leftpane]{
@span[style: "font-size: large; font-weight: bold;"]{Racket} @span[style: "font-size: large; font-weight: bold;"]{Racket}
is a programming language. is a programming language.

4
collects/meta/web/www/old-techreports.rkt
View File

@ -274,8 +274,8 @@
(define (display-attr attr) (define (display-attr attr)
(let* ([prefix (format " ~a = {" (car attr))] (let* ([prefix (format " ~a = {" (car attr))]
[sep (delay (string-append "\n" (make-string (string-length prefix) [sep (lazy (string-append "\n" (make-string (string-length prefix)
#\space)))]) #\space)))])
(display* prefix (display* prefix
(if (regexp-match? #rx"\n" (cdr attr)) (if (regexp-match? #rx"\n" (cdr attr))
(regexp-replace* #rx"\n" (cdr attr) (force sep)) (regexp-replace* #rx"\n" (cdr attr) (force sep))

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

@ -198,12 +198,12 @@
(renderer filename)))))) (renderer filename))))))
(define (url) (relativize filename dirpathlist (rendered-dirpath))) (define (url) (relativize filename dirpathlist (rendered-dirpath)))
(define absolute-url (define absolute-url
(delay (define url (relativize filename dirpathlist '())) (lazy (define url (relativize filename dirpathlist '()))
(if (url-roots) (if (url-roots)
url url
;; we're in local build mode, and insist on an absolute url, so ;; we're in local build mode, and insist on an absolute url, so
;; construct a `file://' result ;; construct a `file://' result
(list* "file://" (current-directory) url)))) (list* "file://" (current-directory) url))))
(add-renderer path render) (add-renderer path render)
(make-keyword-procedure (make-keyword-procedure
(lambda (kws kvs . args) (keyword-apply referrer kws kvs (url) args)) (lambda (kws kvs . args) (keyword-apply referrer kws kvs (url) args))