From: Doni Pracner <quinnuendo@gmail.com>
Date: Thu, 6 Feb 2014 15:22:04 +0000 (+0100)
Subject: PolinomL - ispravka jednog slucaja brisanja clana
X-Git-Tag: v14a~8^2~21
X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=commitdiff_plain;h=9dd437997f7478f943b2f0ab19913737a7b49215

PolinomL - ispravka jednog slucaja brisanja clana
---

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