lib: sys_rplacd misnamed parameter.

* lib.c (sys_rplacd): Change parameter name from new_car to
new_cdr, for obvious reasons.

1 files changed, 3 insertions, 3 deletions

diff --git a/lib.c b/lib.c
index c5f3b476..4883e08b 100644
--- a/lib.c
+++ b/lib.c
@@ -1373,10 +1373,10 @@ val sys_rplaca(val cons, val new_car)
   return new_car;
 }
 
-val sys_rplacd(val cons, val new_car)
+val sys_rplacd(val cons, val new_cdr)
 {
-  (void) rplacd(cons, new_car);
-  return new_car;
+  (void) rplacd(cons, new_cdr);
+  return new_cdr;
 }
 
 loc car_l(val cons)