diff options
author | Noah Lavine <noah.b.lavine@gmail.com> | 2012-01-22 15:08:10 -0500 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-16 10:11:50 +0100 |
commit | 94027fe6ec99874b1f6d1cdf1d7f31f482ecd960 (patch) | |
tree | ac43589b481bbdcd7ce0f622e2ee46e141744854 | |
parent | fee87b821f6ed644c77cee4b3f5a02836f3d974f (diff) | |
download | guile-94027fe6ec99874b1f6d1cdf1d7f31f482ecd960.tar.gz |
Remove 'define-grammar-f'
* module/ice-9/peg.scm: don't re-export 'define-grammar-f'
* module/ice-9/peg/string-peg.scm: don't export 'define-grammar-f'
-rw-r--r-- | module/ice-9/peg.scm | 1 | ||||
-rw-r--r-- | module/ice-9/peg/string-peg.scm | 7 |
2 files changed, 3 insertions, 5 deletions
diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm index f572277b9..4e03131cd 100644 --- a/module/ice-9/peg.scm +++ b/module/ice-9/peg.scm @@ -31,7 +31,6 @@ match-pattern search-for-pattern compile-peg-pattern - define-grammar-f keyword-flatten context-flatten peg:start diff --git a/module/ice-9/peg/string-peg.scm b/module/ice-9/peg/string-peg.scm index 6b1efa982..45ed14bb1 100644 --- a/module/ice-9/peg/string-peg.scm +++ b/module/ice-9/peg/string-peg.scm @@ -20,7 +20,6 @@ (define-module (ice-9 peg string-peg) #:export (peg-as-peg define-peg-string-patterns - define-grammar-f peg-grammar) #:use-module (ice-9 peg using-parsers) #:use-module (ice-9 peg codegen) @@ -98,8 +97,9 @@ RB < ']' ;;;;; PARSE STRING PEGS ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Pakes a string representing a PEG grammar and defines all the nonterminals in -;; it as the associated PEGs. +;; Takes a string representing a PEG grammar and returns syntax that +;; will define all of the nonterminals in the grammar with equivalent +;; PEG s-expressions. (define (peg-parser str for-syntax) (let ((parsed (match-pattern peg-grammar str))) (if (not parsed) @@ -123,7 +123,6 @@ RB < ']' (syntax-case x () ((_ str) (peg-parser (syntax->datum #'str) x))))) -(define define-grammar-f peg-parser) ;; lst has format (nonterm grabber pattern), where ;; nonterm is a symbol (the name of the nonterminal), |