aboutsummaryrefslogtreecommitdiff
path: root/examples/whoisd.scm
diff options
context:
space:
mode:
Diffstat (limited to 'examples/whoisd.scm')
-rw-r--r--examples/whoisd.scm15
1 files changed, 7 insertions, 8 deletions
diff --git a/examples/whoisd.scm b/examples/whoisd.scm
index ec80467..a5bb68e 100644
--- a/examples/whoisd.scm
+++ b/examples/whoisd.scm
@@ -1,21 +1,20 @@
1#! /usr/local/bin/guile -s 1#! /usr/local/bin/guile -s
2!# 2!#
3;;;; This is Scheme whoisd daemon 3;;;; This is Scheme whoisd daemon
4;;;; Copyright (C) 2002, Sergey Poznyakoff 4;;;; Copyright (C) 2002, 2007, Sergey Poznyakoff
5;;;; 5;;;;
6;;;; This program is free software; you can redistribute it and/or modify 6;;;; This program is free software; you can redistribute it and/or modify it
7;;;; it under the terms of the GNU General Public License as published by 7;;;; under the terms of the GNU General Public License as published by the
8;;;; the Free Software Foundation; either version 2 of the License, or 8;;;; Free Software Foundation; either version 3 of the License, or (at your
9;;;; (at your option) any later version. 9;;;; option) any later version.
10;;;; 10;;;;
11;;;; This program is distributed in the hope that it will be useful, 11;;;; This program is distributed in the hope that it will be useful,
12;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of 12;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
13;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14;;;; GNU General Public License for more details. 14;;;; GNU General Public License for more details.
15;;;; 15;;;;
16;;;; You should have received a copy of the GNU General Public License 16;;;; You should have received a copy of the GNU General Public License along
17;;;; along with this program; if not, write to the Free Software Foundation, 17;;;; with this program. If not, see <http://www.gnu.org/licenses/>.
18;;;; Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19;;;; 18;;;;
20 19
21(set! %load-path (append %load-path (list "/usr/local/share/guile-sql"))) 20(set! %load-path (append %load-path (list "/usr/local/share/guile-sql")))

Return to:

Send suggestions and report system problems to the System administrator.