PolinomL - ispravka jednog slucaja brisanja clana

[spa1skripta-public.git] / kodovi / polinomi / POLINOML.MOD

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 6063d5d..309b349 100644 (file)
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -100,11 +100,11 @@ BEGIN
       cilj^.k:=k;\r
     ELSE\r
       IF p = cilj THEN\r
-       DISPOSE(p);\r
+       p := p^.veza;\r
       ELSE\r
        prethodni^.veza:= prethodni^.veza^.veza;\r
-       DISPOSE(cilj);\r
       END;\r
+      DISPOSE(cilj);\r
     END;\r
   ELSE\r
     IF k # 0.0 THEN\r