From 78a2e2aa10e9f51009fa1feb7fad4ef85061c082 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 26 Apr 2011 00:02:51 +0900 Subject: [PATCH] redefining thread-yield! primitive as just yield! --- lib/srfi/18/interface.scm | 2 ++ opcodes.c | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lib/srfi/18/interface.scm b/lib/srfi/18/interface.scm index f814aa6a..dd1a46dc 100644 --- a/lib/srfi/18/interface.scm +++ b/lib/srfi/18/interface.scm @@ -1,4 +1,6 @@ +(define thread-yield! yield!) + (define (thread-join! thread . o) (let ((timeout (if (pair? o) (car o) #f))) (cond diff --git a/opcodes.c b/opcodes.c index d085fb01..38c49cca 100644 --- a/opcodes.c +++ b/opcodes.c @@ -180,7 +180,7 @@ _FN2(SEXP_VOID, _I(SEXP_STRING), _I(SEXP_ENV), "load-module-file", 0, sexp_load_ _FN2(SEXP_VOID, _I(SEXP_STRING), _I(SEXP_BOOLEAN), "add-module-directory", 0, sexp_add_module_directory_op), #endif #if SEXP_USE_GREEN_THREADS -_OP(SEXP_OPC_GENERIC, SEXP_OP_YIELD, 0, 0, SEXP_VOID, SEXP_FALSE, SEXP_FALSE, SEXP_FALSE, 0, "thread-yield!", 0, NULL), +_OP(SEXP_OPC_GENERIC, SEXP_OP_YIELD, 0, 0, SEXP_VOID, SEXP_FALSE, SEXP_FALSE, SEXP_FALSE, 0, "yield!", 0, NULL), #endif #if SEXP_USE_AUTO_FORCE _FN1(_I(SEXP_PROMISE), _I(SEXP_PROCEDURE), "make-promise", 0, sexp_make_promise),