*** empty log message ***

original commit: 6ae268657dacaa661e55f6a6c6c43d3ed1357102

collects/parser-tools/lex.ss

@@ -4,6 +4,7 @@
   ;; create and use the buffer that the lexer reads from.  See doc.txt.
 	
   (require-for-syntax (lib "list.ss")
+                      (lib "stx.ss" "syntax")
                       (lib "define.ss" "syntax")
                       (lib "boundmap.ss" "syntax")
                       "private-lex/util.ss"
@@ -81,7 +82,7 @@
                         (((special) act)
                            (not (ormap
                                  (lambda (x)
-                                   (module-identifier=? (syntax special) x))
+                                   (module-or-top-identifier=? (syntax special) x))
                                  ids)))
                         (_ #t)))
                     spec/re-act-lst)))

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

@@ -1,6 +1,6 @@
 (module actions mzscheme
   (provide (all-defined))
-  ;(require (lib "stx.ss" "syntax"))
+  (require (lib "stx.ss" "syntax"))
     
   ;; get-special-action: (syntax-object list) syntax-object syntax-object  -> syntax-object
   ;; Returns the first action from a rule of the form ((which-special) action)
@@ -10,7 +10,7 @@
       (else
        (syntax-case (car rules) ()
          (((special) act)
-          (module-identifier=? (syntax special) which-special)
+          (module-or-top-identifier=? (syntax special) which-special)
           (syntax act))
          (_ (get-special-action (cdr rules) which-special none))))))