From b00ddd6619324b497aa7ed53d5bfa78222c06d37 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Wed, 8 Sep 2010 15:11:56 -0400 Subject: [PATCH] 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 --- collects/meta/web/html/resource.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/collects/meta/web/html/resource.rkt b/collects/meta/web/html/resource.rkt index 774a299c..30458d48 100644 --- 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"))