X-Git-Url: https://jxself.org/git/?p=8sync.git;a=blobdiff_plain;f=demos%2Fircbot.scm;h=49b241f28f3552ebaf7815dc65826cf8d78ba0f4;hp=9905dab03c8a5c2cc189d94468dc3330d972b7c5;hb=c931d867f132da7c45f4f22b879433e07d2b463b;hpb=31ac6136d78c1d5ed79e770060dad1fa56c2c453 diff --git a/demos/ircbot.scm b/demos/ircbot.scm index 9905dab..49b241f 100755 --- a/demos/ircbot.scm +++ b/demos/ircbot.scm @@ -2,25 +2,26 @@ -e main -s !# -;; Copyright (C) 2015 Christopher Allan Webber +;;; 8sync --- Asynchronous programming for Guile +;;; Copyright (C) 2015 Christopher Allan Webber +;;; +;;; This file is part of 8sync. +;;; +;;; 8sync is free software: you can redistribute it and/or modify it +;;; under the terms of the GNU Lesser General Public License as +;;; published by the Free Software Foundation, either version 3 of the +;;; License, or (at your option) any later version. +;;; +;;; 8sync is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with 8sync. If not, see . -;; This library is free software; you can redistribute it and/or -;; modify it under the terms of the GNU Lesser General Public -;; License as published by the Free Software Foundation; either -;; version 3 of the License, or (at your option) any later version. -;; -;; This library is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;; Lesser General Public License for more details. -;; -;; You should have received a copy of the GNU Lesser General Public -;; License along with this library; if not, write to the Free Software -;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -;; 02110-1301 USA - -(use-modules (eightsync systems irc) - (eightsync agenda) +(use-modules (8sync systems irc) + (8sync agenda) (ice-9 match)) (define (handle-message socket my-name speaker