From 55b45aa2aaccffd5ab6935b0d8eb613a98cea019 Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Tue, 21 Feb 2023 10:00:36 -0800
Subject: [PATCH] Replace grammatically incorrect comments in rplaca/rplacd

---
 src/car-cdr.c | 19 ++++++++++++++-----
 1 file changed, 14 insertions(+), 5 deletions(-)

diff --git a/src/car-cdr.c b/src/car-cdr.c
index d0f791e..1033382 100644
--- a/src/car-cdr.c
+++ b/src/car-cdr.c
@@ -129,10 +129,14 @@ LispPTR cdr(LispPTR datum)
                                         Edited by :	Naoyuki Mitani
 */
 /**********************************************************************/
-
+/**
+ * Replace car of x with y
+ *
+ * @param x [in,out] LispPTR to object in which car will be replaced.
+ * @param y [in] LispPTR to object that will become new car of x.
+ * @return x, modified, or NIL if x is not a list.
+ */
 LispPTR rplaca(LispPTR x, LispPTR y)
-/* car of x will be smashed */
-/* y is a newly car object */
 {
   ConsCell *x_68k;
   ConsCell *temp;
@@ -182,10 +186,15 @@ LispPTR rplaca(LispPTR x, LispPTR y)
 static ConsCell *find_cdrable_pair(LispPTR carpart, LispPTR cdrpart); /* below... */
 static ConsCell *find_close_cell(struct conspage *page, LispPTR oldcell);
 #endif
+/**
+ * Replace cdr of x with y
+ *
+ * @param x [in,out] LispPTR to object in which cdr will be replaced.
+ * @param y [in] LispPTR to object that will become new cdr of x.
+ * @return x, modified, or errors if x is not a list.
+ */
 
 LispPTR rplacd(LispPTR x, LispPTR y)
-/* cdr of x will be smashed */
-/* y is a newly cdr object */
 {
   ConsCell *x_68k;
   ConsCell *temp68k;