[Pspp-cvs] Changes to pspp/src/file-handle.q

[John Darrington]

Index: pspp/src/file-handle.q
diff -u pspp/src/file-handle.q:1.15 pspp/src/file-handle.q:1.16
--- pspp/src/file-handle.q:1.15 Mon Mar 14 06:54:40 2005
+++ pspp/src/file-handle.q      Wed Apr 13 10:09:59 2005
@@ -421,10 +421,11 @@
 void 
 fh_done(void)
 {
-  assert(handle_list);
-  
-  ll_destroy(handle_list);
-  handle_list = 0;
+  if ( handle_list )  
+  {
+    ll_destroy(handle_list);
+    handle_list = 0;
+  }
 }