From 1dd7aa58894674ccee1e95d564ae85a741d43d82 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 7 Jul 2011 05:55:24 -0600 Subject: [PATCH] avoid unnecessary syntax object --- collects/racket/private/stxcase.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/racket/private/stxcase.rkt b/collects/racket/private/stxcase.rkt index 7af94340ad..8aae7e2760 100644 --- a/collects/racket/private/stxcase.rkt +++ b/collects/racket/private/stxcase.rkt @@ -372,7 +372,9 @@ (list 'interp-match (list 'quote pat) 'e - (list 'quote-syntax (list->vector (reverse (unbox interp-box)))) + (if (null? (unbox interp-box)) + #f + (list 'quote-syntax (list->vector (reverse (unbox interp-box))))) lit-comp)))) mtch)] [m