Ticket #1638: scheduler.diff

File scheduler.diff, 632 bytes (added by Sebastien Marie, 4 years ago)

  • scheduler.scm 

    diff 10180e4cf73e3ee0c894b41c91b30337f877087f /home/semarie/repos/chicken/chicken-core
blob - 18d7411e3b7847a4bc0a039efb17df71c04f0139
file + scheduler.scm
    EOF 
    219219                      (loop (cdr lst)) ) ) ) ) ) )
    220220      ;; Unblock threads blocked by I/O:
    221221      (if eintr
    222           (##sys#force-primordial)      ; force it to handle user-interrupt
     222          (begin
     223            (##sys#update-thread-state-buffer ct)
     224            (##sys#force-primordial))   ; force it to handle user-interrupt
    223225          (unless (null? ##sys#fd-list)
    224226            (##sys#unblock-threads-for-i/o) ) )
    225227      ;; Fetch and activate next ready thread: