Made code.scm do same stuff as main.

1 files changed, 14 insertions, 4 deletions

diff --git a/code.scm b/code.scm
index 43914e76..c00ae90a 100644..100755
--- a/code.scm
+++ b/code.scm
@@ -1,6 +1,16 @@
+#!/usr/bin/guile \
+-s
+!#
+
 (begin
- (setenv "LD_LIBRARY_PATH" (getcwd))
- (load-extension "libguile-calendar" "init_calendar")
- (define v (make-calendar "cal")))
+  ;; Supurflous begin block here to make sourcing into geiser easier.
+  (setenv "LD_LIBRARY_PATH" (getcwd))
+  (load-extension "libguile-calendar" "init_calendar")
+  (define v (make-calendar "cal")))
+
+(do ((i 0 (1+ i)))
+    ((>= i (calendar-size v)))
+  (format #t "~3d | ~a~%"
+          i (get-attr v i "summary")))
+
 
-(get-attr v 0 "description")