From 7ae13761ce071986f88e5383520ae314069f5d5c Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@barzilay.org>
Date: Fri, 27 May 2011 18:14:24 -0400
Subject: [PATCH] Protect against accidental second use of `set-news-flashes!'.

---
 collects/meta/web/www/index.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/meta/web/www/index.rkt b/collects/meta/web/www/index.rkt
index b9937dd726..230dc85c06 100644
--- a/collects/meta/web/www/index.rkt
+++ b/collects/meta/web/www/index.rkt
@@ -254,7 +254,9 @@
 
 (provide set-news-flashes!)
 (define news-flashes #f)
-(define (set-news-flashes! . text) (set! news-flashes text))
+(define (set-news-flashes! . text)
+  (when news-flashes (error 'set-news-flashes! "text already set"))
+  (set! news-flashes text))
 
 (provide index)
 (define index