Re: [bug #32243] guile-tools errors if PROGRAM can't be found

[Mark Harig <idirectscm@aim.com>]

(Re-sending -- This apparently did not get through the mail the first 
time.)

> Follow-up Comment #1:
>
> Fixed in git; thanks for the reminder.

Are the problems described below repaired by the latest fix, also?

[~]$ guile-tools -v
guile-tools (GNU Guile 1.9.15) 2.0
Copyright (C) 2010 Free Software Foundation, Inc.
License LGPLv3+: GNU LGPL version 3 or later 
<http://gnu.org/licenses/lgpl.html>
This is free software: you are free to change and redistribute it.
There is NO WARRANTY, to the extent permitted by law.

[~]$ guile-tools doc-snarf -l
Backtrace:
In ice-9/boot-9.scm:
170: 9 [catch #t #<catch-closure 11d40a0> ...]
In unknown file:
  ?: 8 [catch-closure]
In ice-9/boot-9.scm:
 62: 7 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
389: 6 [eval # #]
In /usr/local/bin/guile-tools:
189: 5 [main ("/usr/local/bin/guile-tools" "doc-snarf" "-l")]
In scripts/doc-snarf.scm:
 99: 4 [doc-snarf "-l"]
In ice-9/getopt-long.scm:
  387: 3 [getopt-long ("doc-snarf" "-l") ((version # #) (help # #) 
(output # #) ...)]
In unknown file:
  ?: 2 [scm-error misc-error #f ...]
In ice-9/boot-9.scm:
  115: 1 [#<procedure 1191910 at ice-9/boot-9.scm:110:6 (thrown-k . 
args)> misc-error ...]
In unknown file:
  ?: 0 [catch-closure misc-error #f ...]

[~]$ guile-tools doc-snarf -v
doc-snarf Backtrace:
In ice-9/boot-9.scm:
170: 7 [catch #t #<catch-closure 10e50a0> ...]
In unknown file:
  ?: 6 [catch-closure]
In ice-9/boot-9.scm:
 62: 5 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
389: 4 [eval # #]
In /usr/local/bin/guile-tools:
189: 3 [main ("/usr/local/bin/guile-tools" "doc-snarf" "-v")]
In scripts/doc-snarf.scm:
 83: 2 [display-version]
In ice-9/boot-9.scm:
  115: 1 [#<procedure 10a2910 at ice-9/boot-9.scm:110:6 (thrown-k . 
args)> unbound-variable ...]
In unknown file:
  ?: 0 [catch-closure unbound-variable "module-lookup" ...]

[~]$ guile-tools doc-snarf --he
Backtrace:
In ice-9/boot-9.scm:
170: 10 [catch #t #<catch-closure b8c0a0> ...]
In unknown file:
  ?: 9 [catch-closure]
In ice-9/boot-9.scm:
 62: 8 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
389: 7 [eval # #]
In /usr/local/bin/guile-tools:
189: 6 [main ("/usr/local/bin/guile-tools" "doc-snarf" "--he")]
In scripts/doc-snarf.scm:
 99: 5 [doc-snarf "--he"]
In ice-9/getopt-long.scm:
387: 4 [getopt-long ("doc-snarf" "--he") (# # # # ...)]
335: 3 [process-options (# # # # ...) ("--he")]
In unknown file:
  ?: 2 [scm-error misc-error #f "~A ~S" ("no such option:" "he") #f]
In ice-9/boot-9.scm:
  115: 1 [#<procedure b49910 at ice-9/boot-9.scm:110:6 (thrown-k . 
args)> misc-error ...]
In unknown file:
   ?: 0 [catch-closure misc-error #f "~A ~S" ("no such option:" "he") 
#f]

ERROR: In procedure catch-closure:
ERROR: no such option: "he"

[~]$ guile-tools lint -h
Backtrace:
In ice-9/boot-9.scm:
170: 10 [catch #t #<catch-closure 26040a0> ...]
In unknown file:
  ?: 9 [catch-closure]
In ice-9/boot-9.scm:
 62: 8 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
389: 7 [eval # #]
In /usr/local/bin/guile-tools:
189: 6 [main ("/usr/local/bin/guile-tools" "lint" "-h")]
In unknown file:
  ?: 5 [for-each #<procedure lint (filename)> ("-h")]
In scripts/lint.scm:
109: 4 [lint "-h"]
In ice-9/r4rs.scm:
190: 3 [with-input-from-file "-h" ...]
In unknown file:
  ?: 2 [open-file "-h" "r"]
In ice-9/boot-9.scm:
  115: 1 [#<procedure 25c1910 at ice-9/boot-9.scm:110:6 (thrown-k . 
args)> system-error ...]
In unknown file:
  ?: 0 [catch-closure system-error "open-file" ...]

ERROR: In procedure open-file:
ERROR: No such file or directory: "-h"

[~]$ guile-tools scan-api
Backtrace:
In ice-9/boot-9.scm:
170: 8 [catch #t #<catch-closure 1bbe0a0> ...]
In unknown file:
  ?: 7 [catch-closure]
In ice-9/boot-9.scm:
 62: 6 [call-with-prompt prompt0 ...]
In ice-9/eval.scm:
389: 5 [eval # #]
In /usr/local/bin/guile-tools:
189: 4 [main ("/usr/local/bin/guile-tools" "scan-api")]
In scripts/scan-api.scm:
160: 3 [scan-api]
In unknown file:
  ?: 2 [list-ref () {0}]
In ice-9/boot-9.scm:
  115: 1 [#<procedure 1b7b910 at ice-9/boot-9.scm:110:6 (thrown-k . 
args)> out-of-range ...]
In unknown file:
  ?: {0} [catch-closure out-of-range "list-ref" ...]

ERROR: In procedure list-ref:
ERROR: Argument 2 out of range: 0