07686d60 |
1 | ; -*- guile-scheme -*- |
2 | |
3 | ;;; Loads all bot-modules listed in scripts.load |
4 | (let ((scripts (open-file "scripts.load" "r"))) |
5 | (let load-loop ((script (read scripts))) |
6 | (cond ((not (eof-object? script)) |
7 | (bot:load-module script) |
8 | (load-loop (read scripts)))))) |