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 | |
| 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.
| -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~%")))) |