From e3e93af2f3ebd291c48f8b746c9e4ba43c687593 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 20 Apr 2020 02:16:30 +0200
Subject: Add parameterizised warning procedure.

---
 module/util/exceptions.scm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'module/util/exceptions.scm')

diff --git a/module/util/exceptions.scm b/module/util/exceptions.scm
index d649643c..90e13da3 100644
--- a/module/util/exceptions.scm
+++ b/module/util/exceptions.scm
@@ -38,3 +38,15 @@
                     ,@(cddr (car case)))
                   ,g!rest))))))
 
+
+
+(define-public warning-handler
+  (make-parameter
+   (lambda (fmt . args)
+     (format (current-error-port)
+             "WARNING: ~?~%" fmt args))
+   procedure?))
+
+
+(define-public (warning fmt . args)
+  (apply (warning-handler) fmt (or args '())))
-- 
cgit v1.2.3