diff options
author | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-02 17:58:07 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@hornquist.se> | 2019-05-02 17:58:07 +0200 |
commit | 4fe953de7b5994a896094cf0d62192559a08967d (patch) | |
tree | fa6ec5bdab5a0f1ef02d39e80c6e6ff621c87912 /test.scm | |
parent | Change function for creating hashtables. (diff) | |
download | calp-4fe953de7b5994a896094cf0d62192559a08967d.tar.gz calp-4fe953de7b5994a896094cf0d62192559a08967d.tar.xz |
work on porting most internal datastructures to scheme equivalents.
Diffstat (limited to 'test.scm')
-rw-r--r-- | test.scm | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/test.scm b/test.scm new file mode 100644 index 00000000..a3ea80ef --- /dev/null +++ b/test.scm @@ -0,0 +1,16 @@ +(load "module/main.scm") +(use-modules (vcomponent primitive)) + +(define root (%vcomponent-make "/home/hugo/Möte grupp.ics")) +(define cal (car (children root))) + +(use-modules (ice-9 pretty-print)) + +(pretty-print (hash-map->list cons (%vcomponent-get-hash-table cal))) +(newline) + +(for e in (children cal) + (pretty-print (hash-map->list cons (%vcomponent-get-hash-table + e))) + (display (make-string 40 #\-)) + (newline)) |