summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--modules/language/python/compile.scm19
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 ()