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

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

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

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

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

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

@ -11,18 +11,18 @@
;; gitweb stuff
(define header+footer
(delay (cdr (or (regexp-match
;; extract just the meat between the <body>...</body>
#rx"<body[^<>]*>(.*?){{{BODY}}}(.*?)</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 <body>...</body>
#rx"<body[^<>]*>(.*?){{{BODY}}}(.*?)</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])

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

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

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

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

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