From 49db248111e876ae0cd3163b08d2967573a15bda Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Thu, 17 Feb 2011 14:09:31 +0100
Subject: [PATCH] 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.
---
 module/ice-9/peg.scm | 15 +--------------
 1 file changed, 1 insertion(+), 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)