## przezroczysty synchronizator?
# + q3.so sobie z tym poradzi!
#

info pa
  #% 8.4.8

load ./q3.so

fiber create 1 start
fiber0 alias _puts _puts
fiber0 eval {
  interp create i1
  i1 eval set x 222
  i1 alias _puts _puts
  i1 alias fiber fiber
}
fiber0 eval {proc start {} {
  i1 eval {
    _puts 111
    fiber yield
    _puts $x
    fiber yield
    _puts 333
  }
}}

#fiber0 eval i1 eval set x 222222

fiber restart
fiber yield
fiber error
  #% ended
fiber delete