[Chicken-janitors] #1601: Infinite continuation loop corrupts stack(?)

[Chicken Trac]

#1601: Infinite continuation loop corrupts stack(?)
---------------------+--------------------------------
 Reporter:  syn      |                 Owner:
     Type:  defect   |                Status:  new
 Priority:  minor    |             Milestone:  someday
Component:  unknown  |               Version:  5.0.0
 Keywords:           |  Estimated difficulty:
---------------------+--------------------------------
 This program:

 {{{
 (let ((loop #f))
   (call/cc (lambda (f)
              (set! loop f)))
   (print 123)
   (loop))
 }}}

 prints lines of "123" for a while until it aborts with this error:

 {{{
 [panic] Detected corrupted data in stack - execution terminated
 }}}

--
Ticket URL: <https://bugs.call-cc.org/ticket/1601>
CHICKEN Scheme <https://www.call-cc.org/>
CHICKEN Scheme is a compiler for the Scheme programming language.