diff options
author | Andy Wingo <wingo@pobox.com> | 2011-02-17 14:09:31 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-01-16 10:11:37 +0100 |
commit | 49db248111e876ae0cd3163b08d2967573a15bda (patch) | |
tree | 1d9e349399500339c09a7179e64a844f7d865cd2 | |
parent | a907bce6573608288b393cf2364702ad3506805a (diff) | |
download | guile-49db248111e876ae0cd3163b08d2967573a15bda.tar.gz |
peg: remove get-code debugging foo
* module/ice-9/peg.scm (define-nonterm): Don't stash the code in a
symbol property.
(get-code): Remove.
-rw-r--r-- | module/ice-9/peg.scm | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/module/ice-9/peg.scm b/module/ice-9/peg.scm index ebea740ab..d6fb67a55 100644 --- a/module/ice-9/peg.scm +++ b/module/ice-9/peg.scm @@ -25,7 +25,6 @@ define-nonterm define-nonterm-f peg-match - get-code define-grammar define-grammar-f peg:start @@ -384,19 +383,7 @@ (#,syn str strlen at))) (vector-set! #,c (modulo at *cache-size*) (list str at fres)) - fres)))) - - ;; Store the code in case people want to debug. - (set-symbol-property! - 'sym 'code #,(datum->syntax x (list 'quote (syntax->datum syn)))) - sym))))))) - -;; Gets the code corresponding to NONTERM -(define-syntax get-code - (lambda (x) - (syntax-case x () - ((_ nonterm) - #`(pretty-print (symbol-property 'nonterm 'code)))))) + fres))))))))))) ;; Parses STRING using NONTERM (define (peg-parse nonterm string) |