1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00

Clean Up PEG Codegen

* module/ice-9/peg/codegen.scm: remove unnecessary literals in
  peg-sexp-compile.
This commit is contained in:
Noah Lavine 2011-09-06 12:14:21 -04:00 committed by Andy Wingo
parent 89c3c9ecf0
commit 5c3f2da81f

View file

@ -254,7 +254,7 @@ return EXP."
;; Takes an arbitrary expressions and accumulation variable, then parses it.
;; E.g.: (peg-sexp-compile syntax '(and "abc" (or "-" (range #\a #\z))) 'all)
(define (peg-sexp-compile pat accum)
(syntax-case pat (peg-any range ignore capture peg and or body)
(syntax-case pat (peg-any)
(peg-any
(cg-peg-any (baf accum)))
(sym (identifier? #'sym) ;; nonterminal