diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-03 13:39:57 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-11-03 13:39:57 +0100 |
commit | 275dfc4b4fc7bd8ad3244dbd6c9053fe1ceb7f5b (patch) | |
tree | 53e9c8380e69d3c0a68317b1280174293e1d9eb5 /module/vcomponent/base.scm | |
parent | Readd color parsing, fix minor bugs. (diff) | |
download | calp-275dfc4b4fc7bd8ad3244dbd6c9053fe1ceb7f5b.tar.gz calp-275dfc4b4fc7bd8ad3244dbd6c9053fe1ceb7f5b.tar.xz |
Remove make-vcomponent.
Diffstat (limited to 'module/vcomponent/base.scm')
-rw-r--r-- | module/vcomponent/base.scm | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/module/vcomponent/base.scm b/module/vcomponent/base.scm index 86ea40e8..60a27f94 100644 --- a/module/vcomponent/base.scm +++ b/module/vcomponent/base.scm @@ -2,18 +2,13 @@ :use-module (util) :use-module (srfi srfi-1) :use-module (srfi srfi-17) - :use-module ((vcomponent parse) - :renamer (lambda (symb) - (case symb - ;; [(set-attribute!) 'get-attribute] - [(make-vcomponent) 'primitive-make-vcomponent] - [else symb]))) + :use-module (vcomponent parse) :use-module (ice-9 hash-table) :use-module ((ice-9 optargs) :select (define*-public)) - :re-export (add-child! primitive-make-vcomponent)) + :re-export (add-child! make-vcomponent)) (define-public (parse-cal-path path) - (let ((parent (primitive-make-vcomponent))) + (let ((parent (make-vcomponent))) (for-each (lambda (child) (add-child! parent child)) (read-vcalendar path)) (set-attribute! |