| 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)))))) |