change ERROR: words from throw-foo back to foo.

[factor.git] / basis / concurrency / semaphores / semaphores.factor

diff --git a/basis/concurrency/semaphores/semaphores.factor b/basis/concurrency/semaphores/semaphores.factor
index fae9cc576ce5418beaa29096c994edd6a408517d..392b7557d69e21a5e3f4198986e4f55b0256c1fa 100644 (file)
--- a/basis/concurrency/semaphores/semaphores.factor
+++ b/basis/concurrency/semaphores/semaphores.factor
@@ -12,7 +12,7 @@ M: negative-count-semaphore summary
     drop "Cannot have semaphore with negative count" ;
 
 : <semaphore> ( n -- semaphore )
-    dup 0 < [ throw-negative-count-semaphore ] when
+    dup 0 < [ negative-count-semaphore ] when
     <dlist> semaphore boa ;
 
 : wait-to-acquire ( semaphore timeout -- )