diff options
author | Ricardo Wurmus <rekado@elephly.net> | 2019-06-04 11:56:53 +0200 |
---|---|---|
committer | Ricardo Wurmus <rekado@elephly.net> | 2019-06-04 11:56:53 +0200 |
commit | 46a1ce8c8dc4d3f3333694fd35c85fc97941e9f1 (patch) | |
tree | a763b44106a28c381dd28c0f710824b96f9c3d02 /modules | |
parent | cf30138aad199a010fb6b96accae01d6e25673b5 (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.scm | 19 |
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 () |