Hi, Attached are patches for CHICKEN 5 and 6 to remove unused code from makedist.scm.
All the best. Mario -- https://parenteses.org/mario
>From c51265cbd34955c8c7fe41994ffcd68d6a0fe501 Mon Sep 17 00:00:00 2001 From: Mario Domenech Goulart <[email protected]> Date: Thu, 4 Dec 2025 17:32:50 +0100 Subject: [PATCH] makedist.scm: Remove -release option The -release option doesn't seem to be used anywhere. Also remove dead code around it. --- scripts/makedist.scm | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) 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) -- 2.47.3
>From 3054bd69210c3ff9ecb3a5e8568ef1a71b9a322b Mon Sep 17 00:00:00 2001 From: Mario Domenech Goulart <[email protected]> Date: Thu, 4 Dec 2025 17:25:41 +0100 Subject: [PATCH] makedist.scm: Remove -release option The -release option doesn't seem to be used anywhere. Also remove dead code around it. --- scripts/makedist.scm | 11 ++++------- 1 file changed, 4 insertions(+), 7 deletions(-) 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) -- 2.47.3
