From 6f6feddf9a07214e133438c4af4d32064d671a31 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Sat, 2 Feb 2019 23:13:47 +0100 Subject: Made code.scm do same stuff as main. --- code.scm | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) mode change 100644 => 100755 code.scm (limited to 'code.scm') diff --git a/code.scm b/code.scm old mode 100644 new mode 100755 index 43914e76..c00ae90a --- 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") -- cgit v1.2.3