mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00
Code Activity

peg: remove error-val

Browse source 
* module/ice-9/peg.scm (error-val): Remove needless definition.
This commit is contained in:
Andy Wingo 2011-02-18 21:28:49 +01:00
parent 3be2799eaf
commit c7ed2190cf
1 changed files with 0 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
module/ice-9/peg.scm
View file

@ -174,13 +174,6 @@ return EXP."
((eq? accum 'none) 'none))) ((eq? accum 'none) 'none)))
(define baf builtin-accum-filter) (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. ;; Takes an arbitrary expressions and accumulation variable, then parses it.
;; E.g.: (peg-sexp-compile syntax '(and "abc" (or "-" (range #\a #\z))) 'all) ;; E.g.: (peg-sexp-compile syntax '(and "abc" (or "-" (range #\a #\z))) 'all)
(define (peg-sexp-compile pat accum) (define (peg-sexp-compile pat accum)