X-Git-Url: https://secure.softndesign.org/git/?a=blobdiff_plain;f=calc.c;h=869372f7c761af4fcca745ae048294f3a1a2fe7a;hb=523841a1e0785a34286154a46319d9bd435bd8d7;hp=042bda76fa8c65c04f8d6b8ab889194357a3714f;hpb=2e34899a2fff5d5a6414b8f6a0a2c7c207c35923;p=calc.git

diff --git a/calc.c b/calc.c
index 042bda7..869372f 100644
--- a/calc.c
+++ b/calc.c
@@ -224,9 +224,6 @@ int main (int argc, char *argv[])
                 if (!element->hidden) {
                     print (answer);
                 }
-                if (element->func == Prog) {
-                    save_string (element->ops[0]->value, line[i]);
-                }
                 delelement (element);
                 ret = 0;
             }
@@ -380,8 +377,8 @@ int main (int argc, char *argv[])
 // test: echo -e 'sto (3, pi)\nclr\ndisp' | calc.exe | grep -q "storage: 0 0 0 0 0 0 0 0 0 0"
 // test: echo -e 'mem (3)\nclr' | calc.exe -v 3 | grep -q Clear
 // test: echo -e 'prog (2, 2, {rcl (2) - rcl (1)})\nprog (1, 1, {cos (rcl (1)^2)})\ncall (1, pi/6)\nprog (2, 1, {rcl (1) * 3})\ncall (2, 1, 2)\nls' | calc.exe
-// test: echo -e 'prog (1, 2, {rcl (2) - rcl (1)})\ncall (1, 2, 3)\nls\nedit (1)\ndel (1)\nls' | calc.exe -v 3 |grep -q Program
-// test: echo -e 'prog (2, 2, {rcl (2) - rcl (1)})\nprog (3, 1, cos(rcl (1) * pi / 3))\ncall (1, 2, 3)\nls\nedit (1)\ndel (1)\n\ndel (2)\ncall (2, 1, 4)' | calc.exe | grep -c error | xargs test 3 =
+// test: echo -e 'prog (1, 2, {rcl (2) - rcl (1)})\ncall (1, 2, 3)\nls\nedit (1)\nprog (1, 2, {rcl (2) + rcl (1)})\nedit (1)\ndel (1)' | calc.exe -v 3 |grep -q Program
+// test: echo -e 'prog (2, 2, {rcl (2) - rcl (1)})\nprog (3, 1, cos(rcl (1) * pi / 3))\ncall (1, 2, 3)\nls\nedit (1)\ndel (1)\n\ndel (2)\ncall (2, 1, 4)' | calc.exe | grep -c error | xargs test 4 =
 
 // Gauss sequence
 // test: echo -e '{sto (1, 0), sto (10, 0), while (inc (10) < 100, {sto (1, rcl (1) + rcl (10)), print (rcl (1))})};' | calc.exe | grep -q '=> 5050'