From 71e8e12850ffead79270324db8f332959c074a2a Mon Sep 17 00:00:00 2001 From: Noah Lavine Date: Sun, 22 Jan 2012 15:08:10 -0500 Subject: 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' --- module/ice-9/peg.scm | 1 - 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), -- cgit v1.2.1