[F-operator] Shift/reset working differently than in guile

[megane]

;; (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'

[megane]

Known limitation of call/cc implementations:
​http://okmij.org/ftp/continuations/against-callcc.html#traps

[megane]

I had a short discussion with Kon on IRC and he OK'd this resolution. Just for the record.