~ chicken-core (chicken-5) 90b3408415c5c4687e64d0b5edbc4277d5846d4f

commit 90b3408415c5c4687e64d0b5edbc4277d5846d4f
Author:     unknown <felix@.(none)>
AuthorDate: Thu Nov 5 12:06:37 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Thu Nov 5 12:06:37 2009 +0100

    fixes in makedist script

diff --git a/scripts/makedist.scm b/scripts/makedist.scm
index a6100b27..69b80cb0 100644
--- a/scripts/makedist.scm
+++ b/scripts/makedist.scm
@@ -5,6 +5,8 @@
 
 (load-relative "tools.scm")
 
+(define *help* #f)
+
 (set! *verbose* #t)
 
 (define BUILDVERSION (with-input-from-file "buildversion" read))
@@ -52,6 +54,7 @@
 (define (make-html)
   (unless (file-exists? "html")
     (create-directory "html"))
+  (run (rm -f "manual/*~"))
   (run (,(or (get-environment-variable "CSI")
 	     (let ((this (car (argv))))
 	       (if (string=? "csi" (pathname-file this))
@@ -62,12 +65,16 @@
 	,@(map (o qs (cut make-pathname "manual" <>))
 	       (directory "manual")))))
 
+(define (usage . _)
+  (print "usage: makedist [--release] [--make=PROGRAM] [--platform=PLATFORM] MAKEOPTION ...")
+  (exit 1))
+
 (define *makeargs*
   (simple-args
    (command-line-arguments)
-   (lambda _
-     (print "usage: makedist [--release] [--make=PROGRAM] [--platform=PLATFORM] MAKEOPTION ...")
-     (exit 1))) )
+   usage))
+
+(when *help* (usage))
 
 (run (,*make* -f ,(conc "Makefile." *platform*) distfiles ,@*makeargs*))