partial recursivity

[calc.git] / argument.c

diff --git a/argument.c b/argument.c
index c8f345f40d4d1c83895492eef5fe00f574a8ca8a..2c6a93d6aff50d3eea10e2abefbc1946f66b5dd0 100644 (file)
--- a/argument.c
+++ b/argument.c
@@ -20,7 +20,7 @@ double arg (int n)
 
 /* set arguments */
 
-double def (int nbops, element_t **ops)
+tab_t *def (int nbops, element_t **ops)
 {
     int i;
     tab_t *new = alloc_tab (nbops);
@@ -29,9 +29,7 @@ double def (int nbops, element_t **ops)
         VERBOSE (DEBUG, fprintf (stdout, "arg[%d] = %g\n", i + i, val));
         set_tab (new, i + 1, val);
     }
-    free_tab (argument);
-    argument = new;
-    return size_tab (argument);
+    return new;
 }
 
 /* vim: set ts=4 sw=4 et: */