escape no longer quits during splash screen, not control-q does

svn: r17869

collects/drscheme/private/drscheme-normal.ss

@@ -78,7 +78,9 @@
 (set-splash-char-observer
  (λ (evt)
    (let ([ch (send evt get-key-code)])
-     (when (equal? ch 'escape) (exit))
+     (when (and (eq? ch #\q)
+                (send evt get-control-down))
+       (exit))
      (when (char? ch)
        ;; as soon as something is typed, load the bitmaps
        (load-magic-images)