From b9dc0da4d67d191a2f9ae23ed2f1557452b42669 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Wed, 27 Aug 2008 23:37:23 +0200
Subject: RPLACA, RPLACD: Return the modified cons instead of NIL.

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

(limited to 'MLKRoot.m')

diff --git a/MLKRoot.m b/MLKRoot.m
index dd5b22a..1efd024 100644
--- a/MLKRoot.m
+++ b/MLKRoot.m
@@ -75,14 +75,14 @@ static id
 rplaca (id _data, id cons, id value, id _marker)
 {
   [cons setCar:value];
-  return nil;
+  return cons;
 }
 
 static id
 rplacd (id _data, id cons, id value, id _marker)
 {
   [cons setCdr:value];
-  return nil;
+  return cons;
 }
 
 static id
-- 
cgit v1.2.3