[clinton/bobotpp.git] / examples / bot.autoexec

;;; -*- 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))))))
Commit	Line	Data
528799bd	1	;;; -- scheme --
07686d60	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))))))