From 028f098f1535668d5db27016cd6a5baad1c3be4b Mon Sep 17 00:00:00 2001 From: Scott Owens Date: Wed, 8 Sep 2004 20:27:50 +0000 Subject: [PATCH] *** empty log message *** original commit: 6ae268657dacaa661e55f6a6c6c43d3ed1357102 --- collects/parser-tools/lex.ss | 3 ++- collects/parser-tools/private-lex/actions.ss | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/parser-tools/lex.ss b/collects/parser-tools/lex.ss index 07a2b93..b0bca25 100644 --- a/collects/parser-tools/lex.ss +++ b/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))) diff --git a/collects/parser-tools/private-lex/actions.ss b/collects/parser-tools/private-lex/actions.ss index dfbeeae..172e8dc 100644 --- a/collects/parser-tools/private-lex/actions.ss +++ b/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))))))