From b1c07874e05cb3557740670d3c454175bcdb76f2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 29 Dec 2007 13:51:32 +0000 Subject: [PATCH] disallow empty application; rename regexp-match/fail-without-reading to regexp-try-match svn: r8152 original commit: 1d8b21f53b4bdd14d7986aeda2ba76c351370a60 --- collects/framework/private/exit.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/framework/private/exit.ss b/collects/framework/private/exit.ss index 7b3df176..e850351e 100644 --- a/collects/framework/private/exit.ss +++ b/collects/framework/private/exit.ss @@ -20,7 +20,7 @@ (set! can?-callbacks (let loop ([cb-list can?-callbacks]) (cond - [(null? cb-list) ()] + [(null? cb-list) '()] [(eq? cb (car cb-list)) (cdr cb-list)] [else (cons (car cb-list) (loop (cdr cb-list)))])))))) @@ -31,7 +31,7 @@ (set! on-callbacks (let loop ([cb-list on-callbacks]) (cond - [(null? cb-list) ()] + [(null? cb-list) '()] [(eq? cb (car cb-list)) (cdr cb-list)] [else (cons (car cb-list) (loop (cdr cb-list)))]))))))