--- a/Block.st Mon Jul 24 23:08:12 2017 +0200
+++ b/Block.st Mon Jul 24 23:09:11 2017 +0200
@@ -666,6 +666,7 @@
"Created: / 28-08-2010 / 14:41:15 / cg"
! !
+
!Block methodsFor:'accessing'!
home
@@ -3101,11 +3102,14 @@
"we must keep track of blocking-state if this is called nested"
(OperatingSystem blockInterrupts) ifTrue:[
- "/ already blocked.
- ^ self value
+ "/ already blocked.
+ ^ self value
].
-
+
+ "/ was not blocked
^ self ensure:[OperatingSystem unblockInterrupts].
+
+ "Modified (comment): / 24-07-2017 / 18:03:04 / cg"
!
valueUnpreemptively