diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 19:31:41 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-05-04 19:31:41 +0200 |
commit | 13c37a9a7cc0e781a508462d8621e059de73abce (patch) | |
tree | 65ee2a69e34b4516bc6fddac1c4d4a90f62d6209 /module/util/exceptions.scm | |
parent | "Resolve" missing configuration TODO. (diff) | |
download | calp-13c37a9a7cc0e781a508462d8621e059de73abce.tar.gz calp-13c37a9a7cc0e781a508462d8621e059de73abce.tar.xz |
All warning procedures now uses warning system.
Diffstat (limited to '')
-rw-r--r-- | module/util/exceptions.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/module/util/exceptions.scm b/module/util/exceptions.scm index 09bd3f97..41efaff5 100644 --- a/module/util/exceptions.scm +++ b/module/util/exceptions.scm @@ -43,11 +43,12 @@ (define-public warning-handler (make-parameter (lambda (fmt . args) - (format (current-error-port) - "WARNING: ~?~%" fmt args)))) + (format #f "WARNING: ~?~%" fmt args)))) ;; forwards return from warning-hander. By default returns an unspecified value, ;; but instances are free to provide a proper return value and use it. (define-public (warning fmt . args) - (apply (warning-handler) fmt (or args '()))) + (display (apply (warning-handler) fmt (or args '())) + (current-error-port))) + |