[Chicken-users] (exit) not exiting ...

[Matt Welland]

I have some code that was "evolved" rather than designed and is admittedly a bit of a mess and I needed to add an "(exit)" deep in a block where running a sub process has failed. However the (exit) never exits. This is true both if I run compiled or interpreted. I have tried to make a small test case but I can't reproduce the issue. I even replaced the (exit) with a call to a function that prints a message and then does exit and it still doesn't exit. I also tried _exit with the same result.
Any suggestions on what to look at or how to debug this?

My attempt to reproduce (which works fine) is below:

(define foo 8)

(define (runbroke cmd)
  (handle-exceptions
    exn
    (begin
      (print "FAILED! exn=" exn)
      #f)
    (cmd)))

(define bar 9)

(let ((res (runbroke (lambda ()(process "nadafoobar" "-l" "-blah")))))
  (if (not res)
      (begin
        (print "Failed to run, exiting with code 7")
        (exit 7))))

(exit bar)

BTW,  the code is visible at www.kiatoa.com/fossils/megatest, in cmd-run-proc-each-line in process.scm.