diff options
| author | Noah Lavine <noah.b.lavine@gmail.com> | 2012-01-22 14:47:32 -0500 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2013-01-16 10:11:49 +0100 |
| commit | 8022f5023e2e193e208ab96492631e635ed70bc5 (patch) | |
| tree | c383b485ef674e121da5cc9b7b0d80bf674e4451 /module/ice-9/peg/string-peg.scm | |
| parent | d7e2f5e3c26756de06cd3eda0db1c84bc0cfb0c0 (diff) | |
| download | guile-8022f5023e2e193e208ab96492631e635ed70bc5.tar.gz | |
PEG Renames
* module/ice-9/peg.scm: rename 'peg-parse' to 'match-pattern'
* module/ice-9/peg/string-peg.scm: same
* module/ice-9/peg/using-parsers.scm: same
* doc/ref/api-peg.texi: same
* test-suite/tests/peg.test: same
* test-suite/tests/peg.bench: same
Diffstat (limited to 'module/ice-9/peg/string-peg.scm')
| -rw-r--r-- | module/ice-9/peg/string-peg.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/module/ice-9/peg/string-peg.scm b/module/ice-9/peg/string-peg.scm index 849e742f8..6c7f97e85 100644 --- a/module/ice-9/peg/string-peg.scm +++ b/module/ice-9/peg/string-peg.scm @@ -101,7 +101,7 @@ RB < ']' ;; Pakes a string representing a PEG grammar and defines all the nonterminals in ;; it as the associated PEGs. (define (peg-parser str for-syntax) - (let ((parsed (peg-parse peg-grammar str))) + (let ((parsed (match-pattern peg-grammar str))) (if (not parsed) (begin ;; (display "Invalid PEG grammar!\n") @@ -265,7 +265,7 @@ RB < ']' (peg-sexp-compile (compressor (peg-pattern->defn - (peg:tree (peg-parse peg-pattern string)) #'str-stx) + (peg:tree (match-pattern peg-pattern string)) #'str-stx) #'str-stx) (if (eq? accum 'all) 'body accum)))) (else (error "Bad embedded PEG string" args)))) |