diff options
Diffstat (limited to 'code.scm')
-rwxr-xr-x[-rw-r--r--] | code.scm | 18 |
1 files changed, 14 insertions, 4 deletions
@@ -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") |