~ chicken-core (chicken-5) afd7278c546755aaf102bd7c206c7fa2136cf35c

commit afd7278c546755aaf102bd7c206c7fa2136cf35c
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Fri Jan 1 14:53:44 2016 +1300
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Sat Jan 2 09:53:31 2016 +1300

    Fix feathers usage message so program name is interpolated

diff --git a/feathers.tcl b/feathers.tcl
index 368541d9..a2151d8d 100644
--- a/feathers.tcl
+++ b/feathers.tcl
@@ -1811,7 +1811,9 @@ proc SetupServer {} {
 
 proc Usage {code} {
     global the_name
-    puts stderr {Usage: $the_name [-help] [-n] [-d] [-dir DIRNAME] [-port PORT] [PROGRAM ARGUMENTS ...]}
+    set usage "Usage: $the_name "
+    append usage {[-help] [-n] [-d] [-dir DIRNAME] [-port PORT] [PROGRAM ARGUMENTS ...]}
+    puts stderr $usage
     exit $code
 }