compile: Remove unused macros.

* modules/language/python/compile.scm (clear-warning-data, with-warn,
with-warn-data, get-warns): Remove.

1 files changed, 0 insertions, 19 deletions

diff --git a/modules/language/python/compile.scm b/modules/language/python/compile.scm
index 809476c..d21b904 100644
--- a/modules/language/python/compile.scm
+++ b/modules/language/python/compile.scm
@@ -254,25 +254,6 @@ empty list."
       x
       #f))
 
-(define-syntax clear-warning-data
-  (lambda (x)
-    (catch #t
-      (lambda ()
-	(fluid-set! (@@ (system base message) %dont-warn-list) '()))
-      (lambda x (pre)))
-    #f))
-
-(define-syntax-rule  (with-warn code ...)
-  (with-fluids (((@@ (system base message) %dont-warn-list) '()))
-    code ...))
-
-(define-syntax-rule  (with-warn-data x code ...)
-  (with-fluids (((@@ (system base message) %dont-warn-list) x))
-    code ...))
-
-(define (get-warns)
-   (list (G 'quote) (fluid-ref (@@ (system base message) %dont-warn-list))))
-
 (define (dont-warn v)
   (catch #t
     (lambda ()