From 3fb4b93bc1b68912ee22f8f7445faa087ae500eb Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Sun, 23 Aug 2020 16:25:39 +0200
Subject: Move catch-warnings.

---
 module/util.scm | 11 -----------
 1 file changed, 11 deletions(-)

(limited to 'module/util.scm')

diff --git a/module/util.scm b/module/util.scm
index 28864896..eab93a69 100644
--- a/module/util.scm
+++ b/module/util.scm
@@ -561,17 +561,6 @@
 
 
 
-(define-syntax catch-warnings
-  (syntax-rules ()
-    ((_ default body ...)
-     (parametrize ((warnings-are-errors #t))
-       (catch 'warning
-         (lambda ()
-           body ...)
-         (lambda _ default))))))
-
-
-
 (define-syntax let-env
   (syntax-rules ()
     [(_ ((name value) ...)
-- 
cgit v1.2.3