From 319a4a7ef0fc29eccb104febe084a9ec418f529b Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 2 Feb 2010 18:01:55 +0000 Subject: [PATCH] fixed a bug revealed by drdr (but stil cant make this bad case happen on my machine, frustratingly svn: r17942 --- collects/tests/drscheme/randomly-click.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/drscheme/randomly-click.ss b/collects/tests/drscheme/randomly-click.ss index 2f58829955..9a8f5ba4e0 100644 --- a/collects/tests/drscheme/randomly-click.ss +++ b/collects/tests/drscheme/randomly-click.ss @@ -122,7 +122,7 @@ (fprintf (current-error-port) "\nExists/Meets window with no button: Bug? seed ~s\n" the-seed) - (apply show-log (cons action actions)) + (apply show-log actions) (error 'randomly-click.ss "giving up")]))]))])))))) (define (show-log . actions)