summaryrefslogtreecommitdiff
path: root/modules
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2019-06-04 11:56:53 +0200
committerRicardo Wurmus <rekado@elephly.net>2019-06-04 11:56:53 +0200
commit46a1ce8c8dc4d3f3333694fd35c85fc97941e9f1 (patch)
treea763b44106a28c381dd28c0f710824b96f9c3d02 /modules
parentcf30138aad199a010fb6b96accae01d6e25673b5 (diff)
compile: Remove unused macros.
* modules/language/python/compile.scm (clear-warning-data, with-warn, with-warn-data, get-warns): Remove.
Diffstat (limited to 'modules')
-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 ()