diff options
| author | Andy Wingo <wingo@pobox.com> | 2011-02-17 14:09:31 +0100 |
|---|---|---|
| committer | Noah Lavine <noah.b.lavine@gmail.com> | 2012-01-20 08:26:42 -0500 |
| commit | 58bc3bb27c783a0a5c90a0567be57459b0adc6a3 (patch) | |
| tree | 8f3c5d3eeaa12d6288a9bc28d56220f30979619f | |
| parent | d5dbfb400f2288ea9934478d948c2270ce0b74e7 (diff) | |
| download | guile-58bc3bb27c783a0a5c90a0567be57459b0adc6a3.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) |