X-Git-Url: https://secure.softndesign.org/git/?a=blobdiff_plain;f=workspace.c;h=9fc4d83d522795b0bfab4c1e4043527694dd1e5c;hb=89a2c19deeb8b45dc8c655e59bc58f7a606ecd2c;hp=26bbe8abcbcd70fb2f30d79a2e1f9d06249fbc85;hpb=c58ac3e241e0732e8513790c83eb1c1d42e97700;p=calc.git

diff --git a/workspace.c b/workspace.c
index 26bbe8a..9fc4d83 100644
--- a/workspace.c
+++ b/workspace.c
@@ -23,8 +23,17 @@ workspace_t *alloc_ws ()
 workspace_t *backup_ws (workspace_t *ws)
 {
     ws->answer = answer;
+    if (ws->argument) {
+        free_tab (ws->argument);
+    }
     ws->argument = copy_tab (argument);
+    if (ws->stack) {
+        free_tab (ws->stack);
+    }
     ws->stack = copy_tab (stack);
+    if (ws->storage) {
+        free_tab (ws->storage);
+    }
     ws->storage = copy_tab (storage);
     return ws;
 }