fixed broken syntax error checks

svn: r14187

original commit: afc5ad8d830ea484ee2eb5e4ad309e215ac95e67

collects/parser-tools/lex.ss

@@ -81,7 +81,8 @@
                         (((special) act)
                            (not (ormap
                                  (lambda (x)
-                                   (module-or-top-identifier=? (syntax special) x))
+                                   (and (identifier? #'special)
+                                        (module-or-top-identifier=? (syntax special) x)))
                                  ids)))
                         (_ #t)))
                     spec/re-act-lst))

collects/parser-tools/private-lex/actions.ss

@@ -1,5 +1,6 @@
-(module actions mzscheme
-  (provide (all-defined))
+#lang scheme/base
+
+(provide (all-defined-out))
 (require syntax/stx)
 
 ;; get-special-action: (syntax-object list) syntax-object syntax-object  -> syntax-object
@@ -10,10 +11,6 @@
     (else
      (syntax-case (car rules) ()
        (((special) act)
-          (module-or-top-identifier=? (syntax special) which-special)
+        (and (identifier? #'special) (module-or-top-identifier=? (syntax special) which-special))
         (syntax act))
        (_ (get-special-action (cdr rules) which-special none))))))
-  
-
-  
-  )