port->fileno...FAIL [ 7 ]

Error: assertion failed: (eq? okay (condition-case (begin (print* (quote port->fileno) "...") (flush-output) (let ((output (port->fileno out))) (printf "FAIL [ ~S ]\n" output))) ((exn i/o file) (printf "OK\n") okay)))

        Call history:

        <eval>    (memv688 (##core#quote i/o682) kvar686)
        <eval>    (memv688 (##core#quote file683) kvar686)
        <eval>    (printf680 "OK\n")
        <eval>    (list712 (quote713 okay711))
        <eval>    (eq?715 okay711 (condition-case716 (begin717 (print*718 (quote709 port->fileno) "...") (flush-output......
        <eval>    ((call-with-current-continuation735 (##core#lambda (k733) (with-exception-handler736 (##core#lambda ...
        <eval>    (call-with-current-continuation735 (##core#lambda (k733) (with-exception-handler736 (##core#lambda (......
        <eval>    (with-exception-handler736 (##core#lambda (exvar726) (k733 (##core#lambda () (##core#let ((kvar727 (......
        <eval>    (##sys#call-with-values (##core#lambda () (begin717 (print*718 (quote709 port->fileno) "...") (flush......
        <eval>    (print*718 (quote709 port->fileno) "...")
        <eval>    (flush-output719)
        <eval>    (port->fileno out)
        <eval>    (printf721 "FAIL [ ~S ]\n" output720)
        <eval>    (k733 (##core#lambda () (##sys#apply ##sys#values args734)))
        <eval>    (##sys#apply ##sys#values args734)
        <eval>    (##sys#error "assertion failed" (##core#quote (eq? okay (condition-case (begin (print* (quote port->......    <--