avoid unnecessary syntax object

2011-07-07 05:55:24 -06:00 · 2011-07-07 05:55:24 -06:00 · 1dd7aa5889
commit 1dd7aa5889
parent e783d84268
1 changed files with 3 additions and 1 deletions
--- 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