<div dir="ltr"><div>Dear Marc,</div><div><br></div><div><div><div><div><font face="courier new, monospace">(with-exception-handler</font></div><div><font face="courier new, monospace"> (lambda (e)</font></div><div><font face="courier new, monospace">   (print "Outer.\n")</font></div>

<div><font face="courier new, monospace">   'outer-handler-result)</font></div><div><font face="courier new, monospace"> (lambda ()</font></div><div><font face="courier new, monospace">   (with-exception-handler</font></div>

<div><font face="courier new, monospace">    (lambda (e)</font></div><div><font face="courier new, monospace">      (print "Inner.\n")</font></div><div><font face="courier new, monospace">      (let ((r (raise e)))</font></div>

<div><font face="courier new, monospace">        (print "Passing on " r ".\n")</font></div><div><font face="courier new, monospace">        r))</font></div><div><font face="courier new, monospace">    (lambda () (list 'raise-returned: (raise 'err))))))</font></div>

</div></div></div><div><br></div><div style>prints out "Inner.\n" in an infinite loop currently. Is it not supposed to output</div><div style><br></div><div style><span style="font-family:'courier new',monospace">Inner.</span><br>

</div><div style><div><font face="courier new, monospace">Outer.</font></div><div style><font face="courier new, monospace">Passing on outer-handled-result.</font></div><div><font face="courier new, monospace"><br></font></div>

</div><div style>and then return '(raise-returned: outer-handler-result) ?</div><div style><br></div><div style><br></div><div style>(Found something that may be very related and filed it as <a href="https://www.iro.umontreal.ca/~gambit/bugzilla/show_bug.cgi?id=175">https://www.iro.umontreal.ca/~gambit/bugzilla/show_bug.cgi?id=175</a> .)</div>

<div style><br></div><div>Thanks and best regards,</div><div>Mikael</div><div><br></div></div>