X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=1f53f28d644cc05917e97148e488e4bc102d551a;hp=fb6db76caf3e4709f15a62fc33c18d8299bfb240;hb=42bd814c42848f43f646d277a7e1dd6e0b970575;hpb=11f623923fc51d8532dbfb89f151180678e97847

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index fb6db76..1f53f28 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -302,7 +302,8 @@ PROCEDURE Kolicnik(p1, p2: Polinom; VAR kol, ost: Polinom; VAR ok: BOOLEAN);
         novi^.k := - ost^.k / p2^.k;
         novi^.st := ost^.st - p2^.st;
         MonomPuta(p2, novi, pomocni);
-        Saberi(ost, pomocni, ost);
+        SaberiNa(pomocni, ost);
+        DisposePolinom(pomocni);
         novi^.k := - novi^.k;
         UbaciMonom(novi, kol);
         DISPOSE(novi);