compile: Remove unused macros.
authorRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:56:53 +0000 (11:56 +0200)
committerRicardo Wurmus <rekado@elephly.net>
Tue, 4 Jun 2019 09:56:53 +0000 (11:56 +0200)
* modules/language/python/compile.scm (clear-warning-data, with-warn,
with-warn-data, get-warns): Remove.

modules/language/python/compile.scm

index 809476c..d21b904 100644 (file)
@@ -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 ()