X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=309b34905b1a077a6f29fbe326e02c1c25e3e93c;hp=6063d5dd74e2db701fb8bb6f9357b94339332e1b;hb=9dd437997f7478f943b2f0ab19913737a7b49215;hpb=ecd8664d575d7606d6f1a3739e67b9d884b6a572

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