>>>>> "Chris" == Chris Beggy <chrisb@kippona.com> writes:
Chris> gasbichl@informatik.uni-tuebingen.de (Martin Gasbichler) writes:
>> Does using the interactive mode, that is
>>
>> scsh -lm wiki-lib.scm -lm wiki-package.scm -o changes -o edit -o
>> refcount -o save -o search -o wiki
>>
>>> (dump-scsh "wiki")
>>
Chris> Yes, it does. Now to figure out the rest!
Ah, I've got it: This is a bug in scsh 0.6.0: The exit status is not
set to 0 for the -c and -e options.
Here is a diff:
Index: top.scm
===================================================================
RCS file: /cvsroot/scsh/scsh-0.6/scsh/top.scm,v
retrieving revision 1.20
diff -c -r1.20 top.scm
*** top.scm 2002/01/03 10:16:40 1.20
--- top.scm 2002/01/24 08:12:27
***************
*** 356,368 ****
(let ((result (eval (read-exactly-one-sexp-from-string
term-val)
(interaction-environment))))
(call-exit-hooks)
! (scheme-exit-now result)))
(top-entry ; There was a -e <entry>.
(let ((result ((eval top-entry (interaction-environment))
(command-line))))
(call-exit-hooks)
! (scheme-exit-now result)))
;; Otherwise, the script executed as it loaded,
;; so we're done.
--- 356,368 ----
(let ((result (eval (read-exactly-one-sexp-from-string
term-val)
(interaction-environment))))
(call-exit-hooks)
! (scheme-exit-now 0)))
(top-entry ; There was a -e <entry>.
(let ((result ((eval top-entry (interaction-environment))
(command-line))))
(call-exit-hooks)
! (scheme-exit-now 0)))
;; Otherwise, the script executed as it loaded,
;; so we're done.
--
Martin
|