remove empty dir

[ghc-hetmet.git] / ghc / utils / hp2ps / PsFile.c

diff --git a/ghc/utils/hp2ps/PsFile.c b/ghc/utils/hp2ps/PsFile.c
index 5286ad9..357f826 100644 (file)
--- a/ghc/utils/hp2ps/PsFile.c
+++ b/ghc/utils/hp2ps/PsFile.c
@@ -1,6 +1,6 @@
+#include "Main.h"
 #include <stdio.h>
 #include <string.h>
-#include "Main.h"
 #include "Defines.h"
 #include "Dimensions.h"
 #include "Curves.h"
@@ -59,22 +59,13 @@ static void Scaling   PROTO((floatish));            /* forward */
 static void
 Prologue()
 {
-    floatish epsfscale;
-
-    if (eflag) epsfscale = epsfwidth / (floatish) borderwidth;
-
     if (eflag) {
+       floatish epsfscale = epsfwidth / (floatish) borderwidth;
        EPSFSpecialComments(epsfscale);
-    } else {
-       StandardSpecialComments();
-    }
-
-    if (eflag) {
        Scaling(epsfscale);
-    } else if (gflag) {
-       Portrait();
     } else {
-       Landscape();
+       StandardSpecialComments();
+       if (gflag) Portrait(); else Landscape();
     }
 }