From 783fa44e5b1754586fce3f69ea89eca5b8d28170 Mon Sep 17 00:00:00 2001
From: Jacques Comeaux <jacquesrcomeaux@protonmail.com>
Date: Tue, 5 Dec 2023 16:34:32 -0600
Subject: Finish chapter 5 part 5

---
 chap5/part3.rkt | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'chap5/part3.rkt')

diff --git a/chap5/part3.rkt b/chap5/part3.rkt
index 2fad35d..cf6cc92 100644
--- a/chap5/part3.rkt
+++ b/chap5/part3.rkt
@@ -143,6 +143,11 @@
       (goto (reg continue))
     append-done))
 
+(define (last-pair x)
+  (if (null? (cdr x))
+    x
+    (last-pair (cdr x))))
+
 (#%provide append!)
 (define (append! x y)
   (set-cdr! (last-pair x) y)
-- 
cgit v1.2.3