diff options
| -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 '()))) |