~ chicken-core (master) b867c27ebbb1ee8119a93824a51a0b39840f1a13

commit b867c27ebbb1ee8119a93824a51a0b39840f1a13
Author:     Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Fri Dec 5 11:47:30 2025 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Dec 5 12:57:47 2025 +0100

    scripts/makedist.scm: Fix cond clause
    
    Typo introduced in 212cfd27516e.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index bda4272c..de0771d7 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -85,8 +85,7 @@
     (if (null? args)
 	'()
 	(let ((arg (car args)))
-	  (cond ((loop (cdr args)))
-		((string=? "-make" arg)
+	  (cond ((string=? "-make" arg)
 		 (set! *make* (cadr args))
 		 (loop (cddr args)))
 		((string=? "-help" arg)