From f69448ded971deb6a702894499c718e4a26857dd Mon Sep 17 00:00:00 2001
From: bd <bdunahu@operationnull.com>
Date: Sat, 18 May 2024 23:08:30 -0600
Subject: Finish bubble-sort

---
 prime/prime.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'prime')

diff --git a/prime/prime.scm b/prime/prime.scm
index e12dfb4..89915a1 100755
--- a/prime/prime.scm
+++ b/prime/prime.scm
@@ -14,4 +14,4 @@ by attempting division by number D,D-1,D-2..."
       #t
       (if (equal? (remainder n d) 0)
           #f
-          (prime-helper n (- d 1)))))
+          (prime-helper n (1- d)))))
-- 
cgit v1.2.3