Patch #5209

[pspp-builds.git] / src / data / storage-stream.c

diff --git a/src/data/storage-stream.c b/src/data/storage-stream.c
index a90a8aba1122d2575b5977a0bec779a889117bfc..74769023e74749725183eddb7f6e477a3d1dcca6 100644 (file)
--- a/src/data/storage-stream.c
+++ b/src/data/storage-stream.c
@@ -21,12 +21,14 @@
 
 #include <data/storage-stream.h>
 
+#include <assert.h>
 #include <stdlib.h>
 
 #include <data/case-sink.h>
 #include <data/case-source.h>
 #include <data/case.h>
 #include <data/casefile.h> 
+#include <data/fastfile.h> 
 
 #include "xalloc.h"
 
@@ -45,7 +47,7 @@ storage_sink_open (struct case_sink *sink)
   struct storage_stream_info *info;
 
   sink->aux = info = xmalloc (sizeof *info);
-  info->casefile = casefile_create (sink->value_cnt);
+  info->casefile = fastfile_create (sink->value_cnt);
 }
 
 /* Destroys storage stream represented by INFO. */
@@ -172,7 +174,7 @@ storage_source_decapsulate (struct case_source *source)
   assert (source->class == &storage_source_class);
   casefile = info->casefile;
   info->casefile = NULL;
-  destroy_storage_stream_info (info);
+  free_case_source (source);
   return casefile;
 }