Поправљен баг у "примени" процедури

internals.c

@@ -784,12 +784,26 @@ object applyInt(object parameters, env currentEnv)
 	CAR(expression) = copyObject(CAR(parameters));
 	CDR(expression) = copyObject(CAR(CDR(parameters)));
 
+	/* први аргумент се евалуира да би "примени" могао познати да ли се
+	 * заиста ради о функцији, и да ли је она нормална или специјална
+	 * (јер ако је специјална "навођење" аргумената ремети извршавање) */
+	CAR(expression) = Eval(CAR(expression), currentEnv);
+
+	if (TYPE(CAR(expression)) != procedureObject)
+	{
+		deleteObject(expression);
+		SIGERR(notApplicableError);
+	}
+
+	if (!PROC_SPECIAL(CAR(expression)))
+	{
 		object *current = &expression;
 		while (TYPE(*current) != nilObject)
 		{
 			CAR(*current) = quoteExpression(CAR(*current));
 			current = &CDR(*current);
 		}
+	}
 
 	return Eval(expression, currentEnv);
 }