diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-21 16:17:28 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-12-22 22:58:30 +0100 |
commit | d00fea566004e67161ee45246b239fff5d416b0e (patch) | |
tree | 5641c0c0d0e78b046b6045ed2440512f12259560 /module/vcomponent/util/instance.scm | |
parent | Complete rewrite of use2dot (diff) | |
download | calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.gz calp-d00fea566004e67161ee45246b239fff5d416b0e.tar.xz |
Cleanup modules.
Primarly this moves all vcompenent input and output code to clearly
labeled modules, instead of being spread out. At the same time it also
removes a handfull of unused procedures.
Diffstat (limited to '')
-rw-r--r-- | module/vcomponent/util/instance.scm (renamed from module/vcomponent/instance.scm) | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/module/vcomponent/instance.scm b/module/vcomponent/util/instance.scm index 206d7f19..15c020b1 100644 --- a/module/vcomponent/instance.scm +++ b/module/vcomponent/util/instance.scm @@ -1,4 +1,4 @@ -(define-module (vcomponent instance) +(define-module (vcomponent util instance) :use-module (calp util) :use-module ((calp util config) :select (get-config)) :use-module ((oop goops) :select (make)) @@ -12,11 +12,11 @@ ;; TODO this is loaded on compile, meaning that Guile's auto-compiler may ;; evaluate this to early. (define-once global-event-object - (make (@@ (vcomponent instance methods) <events>) + (make (@@ (vcomponent util instance methods) <events>) calendar-files: (get-config 'calendar-files))) (define-public (reload) - (let ((new-value (make (@@ (vcomponent instance methods) <events>) + (let ((new-value (make (@@ (vcomponent util instance methods) <events>) calendar-files: (get-config 'calendar-files)))) (display "Reload done\n" (current-error-port)) (set! global-event-object new-value))) |