~ chicken-core (chicken-5) 75030b7f4fd771152663bf05d2c43fe5c6e6023d

commit 75030b7f4fd771152663bf05d2c43fe5c6e6023d
Author:     Mario Domenech Goulart <mario@parenteses.org>
AuthorDate: Thu Dec 4 17:32:50 2025 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Thu Dec 4 18:53:17 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 bc601ada..9281a483 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))
@@ -55,7 +54,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)) 
@@ -83,7 +82,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*
@@ -91,10 +90,7 @@
     (if (null? args)
 	'()
 	(let ((arg (car args)))
-	  (cond ((string=? "-release" arg) 
-		 (set! *release* #t)
-		 (loop (cdr args)))
-		((string=? "-make" arg)
+	  (cond ((string=? "-make" arg)
 		 (set! *make* (cadr args))
 		 (loop (cddr args)))
 		((string=? "-help" arg)
@@ -106,4 +102,4 @@
 
 (run "~a -f Makefile.~a distfiles ~a" *make* *platform* (string-intersperse *makeargs*))
 
-(release *release*)
+(release)