Commit f572e5ac f572e5ac7cbcbc8cdf2bdaef9a873f63ec6b6e6f by Sergey Poznyakoff

Minor fixes in Scheme scripts

* scheme/Makefile.am: set executable bit on guimb (fix a typo)
Override the installcheck-binSCRIPTS rule to avoid spurious
output from guile 2.0 when running the program.
* scheme/guimb.scmi: Remove flags specific to guile 1.8
1 parent db61713b
......@@ -31,7 +31,7 @@ sieve2scm: sieve2scm.scmi package.sed
guimb: guimb.scmi package.sed
$(AM_V_GEN)sed -f package.sed $(srcdir)/guimb.scmi > guimb
$(AM_V_at)chmod +w guimb
$(AM_V_at)chmod +x guimb
package.sed: Makefile
$(AM_V_GEN)echo 's,%GUILE_BINDIR%,@GUILE_BINDIR@,g' > package.sed
......@@ -59,3 +59,17 @@ EXTRA_DIST=\
sieve2scm.scmi\
guimb.scmi
installcheck-binSCRIPTS: $(bin_SCRIPTS)
bad=0; pid=$$$$; list="$(bin_SCRIPTS)"; for p in $$list; do \
case ' $(AM_INSTALLCHECK_STD_OPTIONS_EXEMPT) ' in \
*" $$p "* | *" $(srcdir)/$$p "*) continue;; \
esac; \
f=`echo "$$p" | sed 's,^.*/,,;$(transform)'`; \
for opt in --help --version; do \
if GUILE_AUTO_COMPILE=0 "$(DESTDIR)$(bindir)/$$f" $$opt >c$${pid}_.out \
2>c$${pid}_.err </dev/null \
&& test -n "`cat c$${pid}_.out`" \
&& test -z "`cat c$${pid}_.err`"; then :; \
else echo "$$f does not support $$opt" 1>&2; bad=1; fi; \
done; \
done; rm -f c$${pid}_.???; exit $$bad
......
......@@ -272,17 +272,11 @@ for any corresponding short options.
(if (bound? guimb-end)
(guimb-end)))
(debug-enable 'debug)
(debug-options '(show-file-name #t
stack 20000
debug
backtrace
depth 20
maxdepth 1000
frames 3
indent 10
width 79
procnames))
width 79))
(define main guimb)
......