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

Spit out a warning if there are no files rendered.

Browse Source 
Fix a reference to meta/web to be symbolic -- otherwise things can get
confused when symlinks are used, ending up with two instances of a
single modeule (once for the symbolic reference and one for a relative
one).  It's still best to avoid symlinks, though.

Simplify version specs in the techreports code, re-enable continue
reference, some reformatting.

original commit: 35f77f61ade51defb46cf01a5cc91c8c5fdd4a94
This commit is contained in:
Eli Barzilay 2010-09-08 15:11:56 -04:00
parent c9b2f68f59
commit b00ddd6619
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/meta/web/html/resource.rkt
View File

@ -218,9 +218,11 @@
(provide render-all)
(define (render-all)
(printf "Rendering...\n")
(let loop ()
(let ([todo (get/reset-renderers)])
(define todo (get/reset-renderers))
(if (null? todo)
(printf " Warning: no content to render\n")
(let loop ([todo todo])
(unless (null? todo)
(for-each (lambda (r) (r)) todo)
(loop)))) ; if more were created
(loop (get/reset-renderers))))) ; if more were created
(printf "Rendering done.\n"))