diff options
| -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 () |