aboutsummaryrefslogtreecommitdiff
path: root/code.scm
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-02-03 00:00:47 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2019-02-03 00:05:43 +0100
commit21ef1d9c0db916ed867db46376cce1a0343e2b3f (patch)
tree07efc95f0d89b8935427edb3415c2eb4ca960172 /code.scm
parentRework makefile, made .inc into .inc.h. (diff)
downloadcalp-21ef1d9c0db916ed867db46376cce1a0343e2b3f.tar.gz
calp-21ef1d9c0db916ed867db46376cce1a0343e2b3f.tar.xz
Change Scheme interop in C to use guile-snarf.
Diffstat (limited to 'code.scm')
-rwxr-xr-xcode.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/code.scm b/code.scm
index c00ae90a..c3d5d7b5 100755
--- a/code.scm
+++ b/code.scm
@@ -2,6 +2,8 @@
-s
!#
+(use-modules (ice-9 format))
+
(begin
;; Supurflous begin block here to make sourcing into geiser easier.
(setenv "LD_LIBRARY_PATH" (getcwd))
@@ -11,6 +13,6 @@
(do ((i 0 (1+ i)))
((>= i (calendar-size v)))
(format #t "~3d | ~a~%"
- i (get-attr v i "summary")))
+ i (calendar-get-attr v i "summary")))