diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-02-18 21:28:49 +0100 |
|---|---|---|
| committer | Noah Lavine <noah.b.lavine@gmail.com> | 2012-01-20 08:26:48 -0500 |
| commit | ce78649a368888116624783aac8e4e4c8b535b0d (patch) | |
| tree | c42b82ef0fefed7cccf3ca06757214cc066b77b0 | |
| parent | bdf27dc73a168ffb622486c0b8b51a7bdd8e9a16 (diff) | |
| download | guile-ce78649a368888116624783aac8e4e4c8b535b0d.tar.gz | |
peg: remove error-val
* module/ice-9/peg.scm (error-val): Remove needless definition.
| -rw-r--r-- | module/ice-9/peg.scm | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm index d9b3176f8..d91a74e57 100644 --- a/module/ice-9/peg.scm +++ b/module/ice-9/peg.scm @@ -174,13 +174,6 @@ return EXP." ((eq? accum 'none) 'none))) (define baf builtin-accum-filter) -;; Takes a value, prints some debug output, and returns it. -(define (error-val val) - (begin - (pretty-print val) - (pretty-print "Inserting into code for debugging.\n") - val)) - ;; 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) |