From a8ad41b06d2fa053b0bb7f507d184131672e587a Mon Sep 17 00:00:00 2001
From: Andy Wingo <wingo@pobox.com>
Date: Wed, 24 Nov 2010 21:37:27 +0100
Subject: [PATCH] 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 <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" "$@"