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

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

diff --git a/basis/concurrency/promises/promises.factor b/basis/concurrency/promises/promises.factor
index 44e98e2f1a9e092ff7436c309e8d1f07e218d072..f47ee05c75d9d765dd03cbf2405fd37235ef1563 100644 (file)
--- a/basis/concurrency/promises/promises.factor
+++ b/basis/concurrency/promises/promises.factor
@@ -15,7 +15,7 @@ ERROR: promise-already-fulfilled promise ;
 
 : fulfill ( value promise -- )
     dup promise-fulfilled? [
-        throw-promise-already-fulfilled
+        promise-already-fulfilled
     ] [
         mailbox>> mailbox-put
     ] if ;