diff options
| author | Noah Lavine <nlavine@haverford.edu> | 2011-09-06 12:14:21 -0400 |
|---|---|---|
| committer | Noah Lavine <nlavine@haverford.edu> | 2011-09-06 12:14:21 -0400 |
| commit | d32a1ecb0b1880e3b0715f507d32f91ce7c2971d (patch) | |
| tree | bc26a59fa2ea94da992d3aaf717e8c0e6231a62d | |
| parent | 02be220d042a9b50675441cae5e2945e6d4f37e2 (diff) | |
| download | guile-d32a1ecb0b1880e3b0715f507d32f91ce7c2971d.tar.gz | |
Clean Up PEG Codegen
* module/ice-9/peg/codegen.scm: remove unnecessary literals in
peg-sexp-compile.
| -rw-r--r-- | module/ice-9/peg/codegen.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/module/ice-9/peg/codegen.scm b/module/ice-9/peg/codegen.scm index 597ead99e..e08a44b70 100644 --- a/module/ice-9/peg/codegen.scm +++ b/module/ice-9/peg/codegen.scm @@ -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 |