diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-05 20:36:16 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-02-05 20:36:16 +0100 |
commit | cf7302eca72884264455247c2416c853c95a4d08 (patch) | |
tree | 89260d82ac82ac1cc6e6fb21b6bdafa159e176f7 /code.scm | |
parent | Fix most memmory problems. (diff) | |
download | calp-cf7302eca72884264455247c2416c853c95a4d08.tar.gz calp-cf7302eca72884264455247c2416c853c95a4d08.tar.xz |
Made scheme code work again.
Diffstat (limited to '')
-rwxr-xr-x | code.scm | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -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))) |