From 33d04c8d1e702ce2a7daeb42eac4f925ba40051e Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Fri, 30 Nov 2007 07:41:56 -0500
Subject: [PATCH] Minor bug in scheme-script.c: the new argv should be
 null-terminated.

---
 src/scheme-script.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/scheme-script.c b/src/scheme-script.c
index 5a1a434..5eae129 100644
--- a/src/scheme-script.c
+++ b/src/scheme-script.c
@@ -23,7 +23,7 @@
 
 int main(int argc, char** argv){
   if(argc >= 2){
-    char** a = calloc(argc+1, sizeof(char*));
+    char** a = calloc(argc+2, sizeof(char*));
     if(! a) {
       fprintf(stderr, "Error in scheme-script: cannot calloc\n");
       exit(-1);
@@ -34,6 +34,7 @@ int main(int argc, char** argv){
     for(i=1; i<argc; i++){
       a[i+1] = argv[i];
     }
+    a[argc+1] = 0;
     int rv = execv(EXEFILE, a);
     fprintf(stderr, "Error executing ikarus from scheme-script: %s\n",
         strerror(errno));