diff 10180e4cf73e3ee0c894b41c91b30337f877087f /home/semarie/repos/chicken/chicken-core
blob - 18d7411e3b7847a4bc0a039efb17df71c04f0139
file + scheduler.scm
|
|
EOF |
219 | 219 | (loop (cdr lst)) ) ) ) ) ) ) |
220 | 220 | ;; Unblock threads blocked by I/O: |
221 | 221 | (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 |
223 | 225 | (unless (null? ##sys#fd-list) |
224 | 226 | (##sys#unblock-threads-for-i/o) ) ) |
225 | 227 | ;; Fetch and activate next ready thread: |