Made scheme code work again.

1 files changed, 3 insertions, 2 deletions

diff --git a/code.scm b/code.scm
index 66c61dfc..6787f2f4 100755
--- a/code.scm
+++ b/code.scm
@@ -7,8 +7,9 @@
 (begin
   ;; 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")))
+  (load-extension "libguile-calendar" "init_calendar"))
+
+(define v (make-calendar (cadr (command-line))))
 
 (do ((i 0 (1+ i)))
     ((>= i (calendar-size v)))