[project @ 1997-05-26 04:45:22 by sof]

[ghc-hetmet.git] / ghc / compiler / parser / main.c

diff --git a/ghc/compiler/parser/main.c b/ghc/compiler/parser/main.c
index 8463644..eb1c58e 100644 (file)
--- a/ghc/compiler/parser/main.c
+++ b/ghc/compiler/parser/main.c
@@ -24,14 +24,10 @@ main(int argc, char **argv)
 {
     Lnil = mklnil();   /* The null list -- used in lsing, etc. */
 
+    argv++; argc--;
     process_args(argc,argv);
 
     hash_init();
-
-#ifdef HSP_DEBUG
-    fprintf(stderr,"input_file_dir=%s\n",input_file_dir);
-#endif
-
     yyinit();
 
     if(yyparse() == 0 && !etags)