From 6efa469caf0146fb6aedb48619c4353d4c624ec4 Mon Sep 17 00:00:00 2001
From: Matthias Benkard <mulk@minimulk.mst-plus>
Date: Mon, 29 Sep 2008 11:12:58 +0200
Subject: APPLY, EVAL: Denullify return values.

---
 MLKRoot.m | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/MLKRoot.m b/MLKRoot.m
index 596b1e7..7eb9f14 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -756,7 +756,7 @@ apply (id *_data, id function, id arglist, id _marker)
                                             ? (id)[arglist array]
                                             : (id)[NSArray array])];
 
-  return ([values count] > 0 ? [values objectAtIndex:0] : nil);
+  return ([values count] > 0 ? denullify([values objectAtIndex:0]) : nil);
 }
 
 static id
@@ -770,7 +770,7 @@ eval (id *_data, id evaluand, id _marker)
                                     withEnvironment:
                                       [MLKLexicalEnvironment globalEnvironment]];
 
-  return ([values count] > 0 ? [values objectAtIndex:0] : nil);
+  return ([values count] > 0 ? denullify([values objectAtIndex:0]) : nil);
 }
 
 static void
-- 
cgit v1.2.3