From a8ad41b06d2fa053b0bb7f507d184131672e587a Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 24 Nov 2010 21:37:27 +0100 Subject: src/tekuti is a shell script * src/tekuti: Change to be a shell script. --- src/tekuti | 55 ++++++++++++++++++++----------------------------------- 1 file changed, 20 insertions(+), 35 deletions(-) diff --git a/src/tekuti b/src/tekuti index 9f30010..fc9e275 100755 --- a/src/tekuti +++ b/src/tekuti @@ -1,39 +1,24 @@ #!/bin/sh -# -*- scheme -*- -exec guile $GUILE_FLAGS -e main "$0" "$@" -!# -;; Tekuti -;; Copyright (C) 2008, 2010 Andy Wingo +## Tekuti +## Copyright (C) 2008, 2010 Andy Wingo -;; 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" "$@" -- cgit v1.2.3-54-g00ecf