~ chicken-core (chicken-5) 8451f45aea53833b534dc3740df026fffa78579e

commit 8451f45aea53833b534dc3740df026fffa78579e
Author:     unknown <felix@.(none)>
AuthorDate: Tue Oct 27 11:17:23 2009 +0100
Commit:     Felix <bunny351@gmail.com>
CommitDate: Sun Nov 8 01:04:35 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