From 7643157118abd03b660ed7cfe9e934696da463db Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Fri, 6 Apr 2012 23:12:23 +0200
Subject: [PATCH] Replace a @(return) with an ecl_return1()

---
 src/c/threads/semaphore.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/threads/semaphore.d b/src/c/threads/semaphore.d
index d158185d0..23762ec0d 100644
--- a/src/c/threads/semaphore.d
+++ b/src/c/threads/semaphore.d
@@ -119,5 +119,5 @@ mp_wait_on_semaphore(cl_object semaphore)
 	if (get_semaphore_inner(env, semaphore) == Cnil) {
 		ecl_wait_on(env, get_semaphore_inner, semaphore);
 	}
-	@(return Ct)
+	ecl_return1(env, Ct);
 }