suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixed broken syntax error checks

Browse Source 
svn: r14187
This commit is contained in:
Robby Findler 2009-03-19 13:22:46 +00:00
parent 8e175869d9
commit afc5ad8d83
2 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/parser-tools/lex.ss
View File

@ -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))

11
collects/parser-tools/private-lex/actions.ss
View File

@ -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))))))
)