From f679613923d75cb87a53ece1a99860ff528bcbd3 Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Thu, 3 Sep 2015 22:13:01 -0400
Subject: [PATCH] Cleanup

---
 include/cyclone/runtime-main.h | 9 ---------
 scheme/cyclone/cgen.sld        | 6 ++----
 2 files changed, 2 insertions(+), 13 deletions(-)

diff --git a/include/cyclone/runtime-main.h b/include/cyclone/runtime-main.h
index cb5ac3cc..f7914f8b 100644
--- a/include/cyclone/runtime-main.h
+++ b/include/cyclone/runtime-main.h
@@ -14,7 +14,6 @@
 long global_stack_size = 0;
 long global_heap_size = 0;
 
-static long long_arg(int argc,char **argv,char *name,long dval);
 static void c_entry_pt(int,closure,closure);
 static void Cyc_main(long stack_size,long heap_size,char *stack_base);
 
@@ -86,12 +85,4 @@ static void Cyc_main (stack_size,heap_size,stack_base)
 
   printf("Internal error: should never have reached this line\n"); exit(0);}}
 
-static long long_arg(argc,argv,name,dval)
-     int argc; char **argv; char *name; long dval;
-{int j;
- for(j=1;(j+1)<argc;j += 2)
-   if (strcmp(name,argv[j]) == 0)
-     return(atol(argv[j+1]));
- return(dval);}
-
 #endif /* CYCLONE_RUNTIME_MAIN_H */
diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index b52eeddb..b3beba69 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -74,10 +74,8 @@
 
 (define *c-main-function*
 "main(int argc,char **argv)
-{long stack_size = long_arg(argc,argv,\"-s\",STACK_SIZE);
- long heap_size = long_arg(argc,argv,\"-h\",HEAP_SIZE);
- global_stack_size = stack_size;
- global_heap_size = heap_size;
+{long stack_size = global_stack_size = STACK_SIZE;
+ long heap_size = global_heap_size = HEAP_SIZE;
  _cyc_argc = argc;
  _cyc_argv = argv;
  Cyc_main(stack_size,heap_size,(char *) &stack_size);