Move symbol predicates to their own file.

collects/mred/private/wxme/symbol-predicates.rkt

@@ -0,0 +1,13 @@
+#lang racket/base
+
+(provide (all-defined-out))
+
+(define (family-symbol? s)
+  (memq s '(default decorative roman script
+             swiss modern symbol system)))
+(define (style-symbol? s)
+  (memq s '(normal italic slant)))
+(define (weight-symbol? s)
+  (memq s '(normal bold light)))
+(define (smoothing-symbol? s)
+  (memq s '(default smoothed unsmoothed partly-smoothed)))

collects/mred/private/wxme/wx.rkt

@@ -1,22 +1,14 @@
 #lang scheme/base
-(require "../kernel.ss")
+(require "../kernel.ss" "symbol-predicates.rkt")
 
 (define the-clipboard (get-the-clipboard))
 (define the-x-selection-clipboard (get-the-x-selection))
 
-(define (family-symbol? s)
-  (memq s '(default decorative roman script
-             swiss modern symbol system)))
-(define (style-symbol? s)
-  (memq s '(normal italic slant)))
-(define (weight-symbol? s)
-  (memq s '(normal bold light)))
-(define (smoothing-symbol? s)
-  (memq s '(default smoothed unsmoothed partly-smoothed)))
 (define (size? v) (and (exact-positive-integer? v)
                        (byte? v)))
 
-(provide event%
+(provide (all-from-out "symbol-predicates.rkt")
+         event%
          mouse-event%
          key-event%
          timer%