examples/bot.autoexec

   1 ;;; -*- 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))))))