[project @ 2002-01-22 13:09:36 by simonmar]

[ghc-hetmet.git] / ghc / utils / unlit / unlit.c

diff --git a/ghc/utils/unlit/unlit.c b/ghc/utils/unlit/unlit.c
index 8c170e5..a454351 100644 (file)
--- a/ghc/utils/unlit/unlit.c
+++ b/ghc/utils/unlit/unlit.c
@@ -348,8 +348,8 @@ char **argv; {
         }
 
     /* Prefix the output with line pragmas */
-    if (prefix_str) {
-      fprintf(ostream, "# 1 \"%s\"\n{-# LINE 1 \"%s\" #-}\n", prefix_str, prefix_str);
+    if (add_line_prag_long) {
+      fprintf(ostream, "# 1 \"%s\"\n");{-# LINE 1 \"%s\" #-}\n", prefix_str, prefix_str);
     }
 
     unlit(file, istream, ostream);