basis: ERROR: changes.

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

diff --git a/basis/concurrency/promises/promises.factor b/basis/concurrency/promises/promises.factor
index f47ee05c75d9d765dd03cbf2405fd37235ef1563..44e98e2f1a9e092ff7436c309e8d1f07e218d072 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? [
-        promise-already-fulfilled
+        throw-promise-already-fulfilled
     ] [
         mailbox>> mailbox-put
     ] if ;