From 42ba972afe9f527d91357b29a2049dfef14c4823 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Fri, 14 May 2021 06:20:07 -0700 Subject: lib: sys_rplacd misnamed parameter. * lib.c (sys_rplacd): Change parameter name from new_car to new_cdr, for obvious reasons. --- lib.c | 6 +++--- 1 file 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) -- cgit v1.2.3