X-Git-Url: https://secure.softndesign.org/git/?a=blobdiff_plain;f=argument.c;h=c5b1504b25409f9795459eb3885e1813d12ea6c4;hb=743e93f0edf2c7779d0af4e16e17662994e0caaf;hp=bda7684e754e813659e1c53fe72b56bb60210331;hpb=c91672f948d371d3ba2b1a47db9a31fcabb763f5;p=calc.git

diff --git a/argument.c b/argument.c
index bda7684..c5b1504 100644
--- a/argument.c
+++ b/argument.c
@@ -1,3 +1,5 @@
+#include <stdio.h>
+
 #include "parser.h"
 #include "tabular.h"
 
@@ -18,14 +20,16 @@ double arg (int n)
 
 /* set arguments */
 
-double def (int nbops, element_t **ops)
+tab_t *def (int nbops, element_t **ops)
 {
     int i;
-    argument = resize_tab (argument, nbops);
+    tab_t *new = alloc_tab (nbops);
     for (i = 0; i < nbops; i++) {
-        set_tab (argument, i + 1, evaluate_element (ops[i], 0));
+        double val = evaluate_element (ops[i], 0);
+        VERBOSE (DEBUG, fprintf (stdout, "value %d/%d = %g\n", i + 1, nbops, val));
+        set_tab (new, i + 1, val);
     }
-    return size_tab (argument);
+    return new;
 }
 
 /* vim: set ts=4 sw=4 et: */