From 72ed843f02c7ee047ebdcf5c6bad0bd04cfea110 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 21 Apr 2020 19:17:05 +0200
Subject: Fix warning parameter.

---
 module/util/exceptions.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/module/util/exceptions.scm b/module/util/exceptions.scm
index 90e13da3..6b45e14d 100644
--- a/module/util/exceptions.scm
+++ b/module/util/exceptions.scm
@@ -44,8 +44,7 @@
   (make-parameter
    (lambda (fmt . args)
      (format (current-error-port)
-             "WARNING: ~?~%" fmt args))
-   procedure?))
+             "WARNING: ~?~%" fmt args))))
 
 
 (define-public (warning fmt . args)
-- 
cgit v1.2.3