X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Foutput%2Fjournal.c;h=67657f6247cc8ec731cf8154c4f45aa48d369003;hb=23ebdca02083440bb1abc63fc81e0b5d1cdc9f8a;hp=33fbaf2b742121adf3b7765dc15c3fe9310319a4;hpb=fdcc4b6875ccdbf7bd01bc401e87afbeb71c2bfd;p=pspp-builds.git

diff --git a/src/output/journal.c b/src/output/journal.c
index 33fbaf2b..67657f62 100644
--- a/src/output/journal.c
+++ b/src/output/journal.c
@@ -22,6 +22,7 @@
 #include <stdio.h>
 #include <stdlib.h>
 
+#include <data/file-name.h>
 #include <libpspp/str.h>
 
 #include "fwriteerror.h"
@@ -83,7 +84,10 @@ journal_write (bool prefix, const char *line)
   if (journal_file == NULL)
     {
       if (journal_file_name == NULL)
-        journal_file_name = xstrdup ("pspp.jnl");
+	{
+	  const char *output_path = default_output_path ();
+	  journal_file_name = xasprintf ("%s%s", output_path, "pspp.jnl");
+	}
       journal_file = fopen (journal_file_name, "w");
       if (journal_file == NULL)
         {
@@ -98,4 +102,5 @@ journal_write (bool prefix, const char *line)
   fputs (line, journal_file);
   if (strchr (line, '\n') == NULL)
     putc ('\n', journal_file);
+  fflush (journal_file);
 }