commit b00ddd6619324b497aa7ed53d5bfa78222c06d37
parent c9b2f68f59e3924d5a0533d6f886e4f924a0c848
Author: Eli Barzilay <eli@barzilay.org>
Date: Wed, 8 Sep 2010 15:11:56 -0400
Spit out a warning if there are no files rendered.
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
Diffstat:
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/collects/meta/web/html/resource.rkt b/collects/meta/web/html/resource.rkt
@@ -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"))
