From eef3f389099261c388273c909ba5364aba45fa9f Mon Sep 17 00:00:00 2001
From: Norayr Chilingarian <norayr@arnet.am>
Date: Wed, 12 Jan 2022 03:45:28 +0400
Subject: [PATCH] implemented no such package feature.

---
 src/vpkResolver.Mod | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/vpkResolver.Mod b/src/vpkResolver.Mod
index 900322f..3ee77ab 100644
--- a/src/vpkResolver.Mod
+++ b/src/vpkResolver.Mod
@@ -37,10 +37,11 @@ VAR
   p: pstr;
   i: INTEGER;
 BEGIN
-  met.Add(met, d);
+  (*met.Add(met, d);*)
     IF d.RetrieveDeps = NIL THEN Out.String("dep retriever method not installed"); Out.Ln; HALT(1) END;
     depStrs := d.RetrieveDeps(d);
     IF depStrs # NIL THEN
+      met.Add(met, d);
       NEW (deps, depStrs.Count);
       i := 0;
       REPEAT
@@ -66,6 +67,10 @@ BEGIN
         INC(i) 
       UNTIL i = depStrs.Count - 1;
       d.AssignDeps(d, deps);
+    ELSE
+      Out.Ln;
+      Out.String("package "); Out.String(d.name^); Out.String(" not found in the tree"); Out.Ln;
+      HALT(61)
     END;
   depTree.Add(depTree, d);
 END mkDepTree;