summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2011-02-17 14:09:31 +0100
committerAndy Wingo <wingo@pobox.com>2013-01-16 10:11:37 +0100
commit49db248111e876ae0cd3163b08d2967573a15bda (patch)
tree1d9e349399500339c09a7179e64a844f7d865cd2
parenta907bce6573608288b393cf2364702ad3506805a (diff)
downloadguile-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.scm15
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)