[0.4.2] (exit) within run efp problem?

[glenn@mathcs.emory.edu (Glenn Barry)]

O&B,

It's natural to want to intersperse unix cmds with scheme code
within the run epf and '|' pf (as in the example of page 20 in
the manual).

But I noticed that if you put a (exit) call in the scheme code within
the run epf and '|' pf, it does not exit like one would expect.

Here's a simple example to demo:

glenn@drella:pts/13% cat exit-via-run.scm                 ~/src/scheme/scsh/

(define (do-it)
  (begin (display "in do-it\n")
         (exit 55)))
 
(run (begin (do-it)))
 
(display "after run\n")
 
(exit 66)

glenn@drella:pts/13% scsh -s exit-via-run.scm             ~/src/scheme/scsh/
in do-it
after run
glenn@drella:pts/13% echo $?                              ~/src/scheme/scsh/
66

Should that not exit in (do-it) with exit value 55?

thx,
glenn