From: Doni Pracner <donny@rarogl>
Date: Fri, 25 Apr 2014 15:05:39 +0000 (+0200)
Subject: PolinomL - spajanje dva uslova u jedan; popravka greske u dodavanju na pocetak
X-Git-Tag: v14c~3
X-Git-Url: http://svarog.pmf.uns.ac.rs/gitweb/?p=spa1skripta-public.git;a=commitdiff_plain;h=a545651abc2ca9888aa682a96dc34a9ba16257bd

PolinomL - spajanje dva uslova u jedan; popravka greske u dodavanju na pocetak
---

diff --git a/kodovi/polinomi/POLINOML.MOD b/kodovi/polinomi/POLINOML.MOD
index 1623cb8..03dd95d 100644
--- a/kodovi/polinomi/POLINOML.MOD
+++ b/kodovi/polinomi/POLINOML.MOD
@@ -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;