~ chicken-core (master) 212cfd27516eb832e1db3d5fa05c0356f6fe6e45

commit 212cfd27516eb832e1db3d5fa05c0356f6fe6e45
Author:     Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Thu Dec 4 17:25:41 2025 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Dec 4 18:51:03 2025 +0100

    makedist.scm: Remove -release option
    
    The -release option doesn't seem to be used anywhere.  Also remove
    dead code around it.
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index 8857cb0a..bda4272c 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -14,7 +14,6 @@
 
 (include "mini-srfi-1.scm")
 
-(define *release* #f)
 (define *help* #f)
 
 (define BUILDVERSION (with-input-from-file "buildversion" read))
@@ -50,7 +49,7 @@
     (newline (current-error-port))
     (system* cmd)))
 
-(define (release full?)
+(define (release)
   (let* ((files (with-input-from-file "distribution/manifest" read-lines))
 	 (distname (conc "chicken-" BUILDVERSION))
 	 (distfiles (map (cut prefix distname <>) files))
@@ -78,7 +77,7 @@
     (run "rm -fr ~a" distname)))
 
 (define (usage)
-  (print "usage: makedist [-release] [-make PROGRAM] [--platform=PLATFORM] MAKEOPTION ...")
+  (print "usage: makedist [-make PROGRAM] [--platform=PLATFORM] MAKEOPTION ...")
   (exit))
 
 (define *makeargs*
@@ -86,9 +85,7 @@
     (if (null? args)
 	'()
 	(let ((arg (car args)))
-	  (cond ((string=? "-release" arg)
-		 (set! *release* #t)
-		 (loop (cdr args)))
+	  (cond ((loop (cdr args)))
 		((string=? "-make" arg)
 		 (set! *make* (cadr args))
 		 (loop (cddr args)))
@@ -101,4 +98,4 @@
 
 (run "~a -f Makefile.~a distfiles ~a" *make* *platform* (string-intersperse *makeargs*))
 
-(release *release*)
+(release)