[Chicken-janitors] #1474: [F-operator] Shift/reset working differently than in guile

[Chicken Trac]

#1474: [F-operator] Shift/reset working differently than in guile
------------------------+--------------------------------
 Reporter:  megane      |                 Owner:  kon
     Type:  defect      |                Status:  new
 Priority:  major       |             Milestone:  someday
Component:  extensions  |               Version:
 Keywords:              |  Estimated difficulty:
------------------------+--------------------------------
 {{{
 ;; (use-modules (ice-9 control))
 ;; (use shift-reset)
 (let ((captured-k
        (reset (display (shift f f)))))
   (display
    (string-append
     "str: '"
     (with-output-to-string
       (lambda ()
         (captured-k "this should go to the string")))
     "'")))

 ;; $ csi -qbn test.scm
 ;; this should go to the stringstr: ''

 ;; $ guile test.scm
 ;; str: 'this should go to the string'
 }}}

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