;;; -*- scheme -*-

;;; Loads all bot-modules listed in scripts.load
(let ((scripts (open-file "scripts.load" "r")))
  (let load-loop ((script (read scripts)))
    (cond ((not (eof-object? script))
	   (bot:load-module script)
	   (load-loop (read scripts))))))