diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-09-18 22:49:29 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2022-09-18 22:49:29 +0200 |
commit | 06078cf0f74533e73d597c520eea335bba472ec5 (patch) | |
tree | 72e3b827b5deb716b1955318da034abca1c86ba1 /module/vcomponent/util | |
parent | Rewrote make-routes to use define-syntax. (diff) | |
download | calp-06078cf0f74533e73d597c520eea335bba472ec5.tar.gz calp-06078cf0f74533e73d597c520eea335bba472ec5.tar.xz |
Extend globel-even-object reload to take optional parameter.
Diffstat (limited to 'module/vcomponent/util')
-rw-r--r-- | module/vcomponent/util/instance.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/module/vcomponent/util/instance.scm b/module/vcomponent/util/instance.scm index a18085eb..bf7f2226 100644 --- a/module/vcomponent/util/instance.scm +++ b/module/vcomponent/util/instance.scm @@ -1,4 +1,5 @@ (define-module (vcomponent util instance) + :use-module (srfi srfi-88) :use-module (hnh util) :use-module (calp translation) :use-module ((vcomponent util instance methods) :select (make-instance)) @@ -14,6 +15,6 @@ (define-once global-event-object (make-instance ((@ (vcomponent config) calendar-files)))) -(define (reload) - (begin (set! global-event-object (make-instance ((@ (vcomponent config) calendar-files)))) +(define* (reload optional: (files ((@ (vcomponent config) calendar-files)))) + (begin (set! global-event-object (make-instance files)) (format (current-error-port) (_ "Reload done~%")))) |