[project @ 2003-08-15 15:53:00 by igloo]

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

diff --git a/ghc/utils/hp2ps/PsFile.c b/ghc/utils/hp2ps/PsFile.c
index 5286ad9..40b08da 100644 (file)
--- a/ghc/utils/hp2ps/PsFile.c
+++ b/ghc/utils/hp2ps/PsFile.c
@@ -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();
     }
 }