~ chicken-core (chicken-5) c3b3345ed4307fe32ef37151bc29d9c4bccf34a4

commit c3b3345ed4307fe32ef37151bc29d9c4bccf34a4
Author:     unknown <felix@.(none)>
AuthorDate: Tue Oct 27 11:17:23 2009 +0100
Commit:     unknown <felix@.(none)>
CommitDate: Tue Oct 27 11:17:23 2009 +0100

    CHICKEN_yield callback should use internal ##sys#thread-yield

diff --git a/eval.scm b/eval.scm
index d5a6a916..8e9dba95 100644
--- a/eval.scm
+++ b/eval.scm
@@ -1740,7 +1740,7 @@
   #t)
 
 (define-external (CHICKEN_yield) bool
-  (run-safe (lambda () (begin (thread-yield!) #t))) )
+  (run-safe (lambda () (begin (##sys#thread-yield!) #t))) )
 
 (define-external (CHICKEN_eval (scheme-object exp) ((c-pointer "C_word") result)) bool
   (run-safe