X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?a=blobdiff_plain;f=kodovi%2Fpolinomi%2FPOLINOML.MOD;h=12fc5b10bd5bea704bf799b17ac266a70c5400f3;hb=refs%2Fheads%2Fpublic;hp=20e64ea213815df5f7f1f41fb2a0afa7f52da290;hpb=bffae2605e62e461b1e0e2faf10389799f9eb74c;p=spa1skripta-public.git

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 20e64ea..12fc5b1 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -1,5 +1,5 @@
 (* Modul za rad sa polinomima preko listi
-   verzija 2014 *)
+   verzija 2014; rev 1 *)
 IMPLEMENTATION MODULE PolinomL;
 FROM InOut IMPORT Write, WriteString, WriteLn,
            WriteCard, ReadCard, Done;
@@ -93,10 +93,9 @@ BEGIN
       cilj^.k := k;
       cilj^.st := st;
       cilj^.veza := NIL;
-      IF p = NIL THEN
-	p := cilj;
-      ELSIF prethodni = NIL THEN
-	cilj^.veza := p^.veza;
+      IF prethodni = NIL THEN
+	(* ili je prazan polinom, ili dodajemo na pocetak *)
+	cilj^.veza := p;
 	p := cilj;
       ELSE
 	cilj^.veza := prethodni^.veza;
@@ -284,7 +283,7 @@ BEGIN
       REPEAT
         UbaciMonom(pomocni, pr);
         brisi := pomocni;
-        pomocni := pomocni^.veza
+        pomocni := pomocni^.veza;
         DISPOSE(brisi);
       UNTIL pomocni = NIL;
       p2 := p2^.veza