diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-20 02:16:30 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-20 02:16:30 +0200 |
| commit | e3e93af2f3ebd291c48f8b746c9e4ba43c687593 (patch) | |
| tree | b456a5496d148d6b373b31173fca53686759a107 | |
| parent | Add group prodedure. (diff) | |
| download | calp-e3e93af2f3ebd291c48f8b746c9e4ba43c687593.tar.gz calp-e3e93af2f3ebd291c48f8b746c9e4ba43c687593.tar.xz | |
Add parameterizised warning procedure.
| -rw-r--r-- | module/util/exceptions.scm | 12 |
1 files changed, 12 insertions, 0 deletions
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 '()))) |