suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Protect against accidental second use of `set-news-flashes!'.

Browse Source
This commit is contained in:
Eli Barzilay 2011-05-27 18:14:24 -04:00
parent 13b2adc18c
commit 7ae13761ce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/meta/web/www/index.rkt
View File

@ -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