diff options
author | Andy Wingo | 2010-11-24 21:37:27 +0100 |
---|---|---|
committer | Andy Wingo | 2010-11-24 21:37:27 +0100 |
commit | a8ad41b06d2fa053b0bb7f507d184131672e587a (patch) | |
tree | 361f6647f5f573a68a059ee8efac25662abab6a7 /src | |
parent | 507db16d489e75408d93edf2a46f52c4fd3a42be (diff) | |
download | tekuti-a8ad41b06d2fa053b0bb7f507d184131672e587a.tar.gz tekuti-a8ad41b06d2fa053b0bb7f507d184131672e587a.zip |
src/tekuti is a shell script
* src/tekuti: Change to be a shell script.
Diffstat (limited to 'src')
-rwxr-xr-x | src/tekuti | 55 |
1 files changed, 20 insertions, 35 deletions
@@ -1,39 +1,24 @@ #!/bin/sh -# -*- scheme -*- -exec guile $GUILE_FLAGS -e main "$0" "$@" -!# -;; Tekuti -;; Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com> +## Tekuti +## Copyright (C) 2008, 2010 Andy Wingo <wingo at pobox dot com> -;; This program is free software; you can redistribute it and/or -;; modify it under the terms of the GNU General Public License as -;; published by the Free Software Foundation; either version 3 of -;; the License, or (at your option) any later version. -;; -;; This program 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 General Public License for more details. -;; -;; You should have received a copy of the GNU General Public License -;; along with this program; if not, contact: -;; -;; Free Software Foundation Voice: +1-617-542-5942 -;; 59 Temple Place - Suite 330 Fax: +1-617-542-2652 -;; Boston, MA 02111-1307, USA gnu@gnu.org - -;;; Commentary: -;; -;; This is the main script that will launch tekuti. -;; -;;; Code: - -;;hack! - -;(turn-on-debugging) -(use-modules (tekuti boot)) -(define (main args) - (start-stack 'tekuti - (boot args))) +## This program is free software; you can redistribute it and/or +## modify it under the terms of the GNU General Public License as +## published by the Free Software Foundation; either version 3 of +## the License, or (at your option) any later version. +## +## This program 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 General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with this program; if not, contact: +## +## Free Software Foundation Voice: +1-617-542-5942 +## 59 Temple Place - Suite 330 Fax: +1-617-542-2652 +## Boston, MA 02111-1307, USA gnu@gnu.org +BOOT="((@ (tekuti boot) boot) (program-arguments))" +exec guile $GUILE_FLAGS -c "$BOOT" "$0" "$@" |