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