#DOCUMENTATION by cg
authorClaus Gittinger <cg@exept.de>
Mon, 24 Jul 2017 23:09:11 +0200
changeset 22083 31dabc42abf9
parent 22082 2113e28652cd
child 22084 7503e17e7828
#DOCUMENTATION by cg class: Block comment/format in: #valueUninterruptably
Block.st
--- 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