diff --git a/scheme/httpd/surflets/surflets.scm b/scheme/httpd/surflets/surflets.scm index 1b6e4d6..cd0bd3a 100644 --- a/scheme/httpd/surflets/surflets.scm +++ b/scheme/httpd/surflets/surflets.scm @@ -223,9 +223,11 @@ `(html (title "Outdated Data") (body (h1 "Outdated Data") (p "The page or action you requested relies on outdated data") - (p "Try to " - (URL ,url "reload") - " the page to get current data."))))) + ,(if url + `(p "Try to " + (URL ,url "reload") + " the page to get current data.") + '()))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; input-fields