peg: remove error-val

* module/ice-9/peg.scm (error-val): Remove needless definition.

diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm
index d9b3176..d91a74e 100644 (file)
--- 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)