author | Claus Gittinger <cg@exept.de> |
Sun, 18 Feb 1996 13:29:30 +0100 | |
changeset 189 | c2e0b4299f9e |
parent 188 | 74c8f104cd71 |
child 190 | a6fec478fbfd |
Promise.st | file | annotate | diff | comparison | revisions |
--- a/Promise.st Wed Feb 14 16:04:49 1996 +0100 +++ b/Promise.st Sun Feb 18 13:29:30 1996 +0100 @@ -36,7 +36,7 @@ ! version - ^ '$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.5 1995-11-11 15:21:31 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic2/Promise.st,v 1.6 1996-02-18 12:29:30 cg Exp $' ! documentation @@ -92,7 +92,7 @@ valueAvailable := Semaphore new:0. [ - Object errorSignal handle:[:ex | + ErrorSignal handle:[:ex | exception := ex. ex return. ] do:[