Un poco mas de limpieza usando los codigos de error.

[z.facultad/75.06/emufs.git] / emufs_gui / facturas.c

diff --git a/emufs_gui/facturas.c b/emufs_gui/facturas.c
index b9b798a0be1c80167b00d6854606c38372f149f1..00b5276371093b8394cb20887f044b4a12253d8c 100644 (file)
--- a/emufs_gui/facturas.c
+++ b/emufs_gui/facturas.c
@@ -281,10 +281,16 @@ t_LstFacturas *fact_cargar(const char *filename, int tipo, int tam_bloque)
 
 int fact_liberar(t_LstFacturas *l)
 {
+       t_Reg_Factura *del;
        if (l == NULL) l = lst_facturas;
        if (l == NULL) return 1;
 
        emufs_destruir(l->fp);
+       while (l->primero) {
+               del = l->primero;
+               l->primero = l->primero->sig;
+               free(del);
+       }
        free(l);
 
        lst_facturas = NULL;