From 46a1ce8c8dc4d3f3333694fd35c85fc97941e9f1 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Tue, 4 Jun 2019 11:56:53 +0200 Subject: compile: Remove unused macros. * modules/language/python/compile.scm (clear-warning-data, with-warn, with-warn-data, get-warns): Remove. --- modules/language/python/compile.scm | 19 ------------------- 1 file changed, 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 () -- cgit v1.2.3