hg/stx-libbasic: comparison Block.st

equal deleted inserted replaced

-:9b7f8e531a16
+:1c69f8f3574c
 (i.e. Blocks are closures in Smalltalk/X)
 A return (via ^-statement) out of a block will force a return from the
 blocks method context (if it is still living) - this make the implementation
 of long-jumps and control structures possible.
 (If the method is not alive (i.e. has already returned), a return out of the
 block will trigger an error)
 Long-jump is done by defining a catchBlock as ''[^ self]''
 somewhere up in the calling-tree. Then, to do the long-jump from out of some
 deeply nested method, simply do: ''catchBlock value''.
 [Instance variables:]
 home        <Context>         the context where this block was created (i.e. defined)
 !
 examples
 "
 define a block and evaluate it:
-[exBegin]
+									[exBegin]
-|b|
+	|b|
-b := [ Transcript showCR:'hello' ].
+	b := [ Transcript showCR:'hello' ].
-Transcript showCR:'now evaluating the block ...'.
+	Transcript showCR:'now evaluating the block ...'.
-b value.
+	b value.
-[exEnd]
+									[exEnd]
 even here, blocks are involved:
 (although, the compiler optimizes things if possible)
-[exBegin]
+									[exBegin]
-Transcript showCR:'now evaluating one of two blocks ...'.
+	Transcript showCR:'now evaluating one of two blocks ...'.
-1 > 4 ifTrue:[
+	1 > 4 ifTrue:[
-Transcript showCR:'foo'
+	    Transcript showCR:'foo'
-] ifFalse:[
+	] ifFalse:[
-Transcript showCR:'bar'
+	    Transcript showCR:'bar'
-]
+	]
-[exEnd]
+									[exEnd]
 here things become obvious:
-[exBegin]
+									[exBegin]
-|yesBlock noBlock|
+	|yesBlock noBlock|
-yesBlock := [ Transcript showCR:'foo' ].
+	yesBlock := [ Transcript showCR:'foo' ].
-noBlock := [ Transcript showCR:'bar' ].
+	noBlock := [ Transcript showCR:'bar' ].
-Transcript showCR:'now evaluating one of two blocks ...'.
+	Transcript showCR:'now evaluating one of two blocks ...'.
-1 > 4 ifTrue:yesBlock
+	1 > 4 ifTrue:yesBlock
-ifFalse:noBlock
+	      ifFalse:noBlock
-[exEnd]
+									[exEnd]
 simple loops:
 not very objectOriented:
-[exBegin]
+									[exBegin]
-|i|
+	|i|
-i := 1.
+	i := 1.
-[i < 10] whileTrue:[
+	[i < 10] whileTrue:[
-Transcript showCR:i.
+	    Transcript showCR:i.
-i := i + 1
+	    i := i + 1
-]
+	]
-[exEnd]
+									[exEnd]
 using integer protocol:
-[exBegin]
+									[exBegin]
-1 to:10 do:[:i |
+	1 to:10 do:[:i |
-Transcript showCR:i.
+	    Transcript showCR:i.
-]
+	]
-[exEnd]
+									[exEnd]
 interval protocol:
-[exBegin]
+									[exBegin]
-(1 to:10) do:[:i |
+	(1 to:10) do:[:i |
-Transcript showCR:i.
+	    Transcript showCR:i.
-]
+	]
-[exEnd]
+									[exEnd]
 looping over collections:
 bad code:
 (only works with numeric-indexable collections)
-[exBegin]
+									[exBegin]
-|i coll|
+	|i coll|
-coll := #(9 8 7 6 5).
+	coll := #(9 8 7 6 5).
-i := 1.
+	i := 1.
-[i <= coll size] whileTrue:[
+	[i <= coll size] whileTrue:[
-Transcript showCR:(coll at:i).
+	    Transcript showCR:(coll at:i).
-i := i + 1.
+	    i := i + 1.
-]
+	]
-[exEnd]
+									[exEnd]
 just as bad (well, marginally better ;-):
 (only works with numeric-indexable collections)
-[exBegin]
+									[exBegin]
-|coll|
+	|coll|
-coll := #(9 8 7 6 5).
+	coll := #(9 8 7 6 5).
-1 to:coll size do:[:i |
+	1 to:coll size do:[:i |
-Transcript showCR:(coll at:i).
+	    Transcript showCR:(coll at:i).
-]
+	]
-[exEnd]
+									[exEnd]
 the smalltalk way:
 (works with any collection)
-[exBegin]
+									[exBegin]
-|coll|
+	|coll|
-coll := #(9 8 7 6 5).
+	coll := #(9 8 7 6 5).
-coll do:[:element |
+	coll do:[:element |
-Transcript showCR:element.
+	    Transcript showCR:element.
-]
+	]
-[exEnd]
+									[exEnd]
 Rule: use enumeration protocol of the collection instead of
-manually indexing it. [with few exceptions]
+	  manually indexing it. [with few exceptions]
 processes:
 forking a lightweight process (thread):
-[exBegin]
+									[exBegin]
-[
+	[
-Transcript showCR:'waiting ...'.
+	    Transcript showCR:'waiting ...'.
-Delay waitForSeconds:2.
+	    Delay waitForSeconds:2.
-Transcript showCR:'here I am'.
+	    Transcript showCR:'here I am'.
-] fork
+	] fork
-[exEnd]
+									[exEnd]
 some with low prio:
-[exBegin]
+									[exBegin]
-[
+	[
-Transcript showCR:'computing ...'.
+	    Transcript showCR:'computing ...'.
-10000 factorial.
+	    10000 factorial.
-Transcript showCR:'here I am'.
+	    Transcript showCR:'here I am'.
-] forkAt:(Processor userBackgroundPriority)
+	] forkAt:(Processor userBackgroundPriority)
-[exEnd]
+									[exEnd]
 handling exceptions:
-[exBegin]
+									[exBegin]
-Error handle:[:ex |
+	Error handle:[:ex |
-Transcript showCR:'exception handler forces return'.
+	    Transcript showCR:'exception handler forces return'.
-ex return
+	    ex return
-] do:[
+	] do:[
-Transcript showCR:'now, doing something bad ...'.
+	    Transcript showCR:'now, doing something bad ...'.
-1 / 0.
+	    1 / 0.
-Transcript showCR:'not reached'
+	    Transcript showCR:'not reached'
-]
+	]
-[exEnd]
+									[exEnd]
 performing cleanup actions:
-[exBegin]
+									[exBegin]
-Error handle:[:ex |
+	Error handle:[:ex |
-Transcript showCR:'exception handler forces return'.
+	    Transcript showCR:'exception handler forces return'.
-ex return
+	    ex return
-] do:[
+	] do:[
-[
+	    [
-Transcript showCR:'doing something bad ...'.
+		Transcript showCR:'doing something bad ...'.
-1 / 0.
+		1 / 0.
-Transcript showCR:'not reached'
+		Transcript showCR:'not reached'
-] ifCurtailed:[
+	    ] ifCurtailed:[
-Transcript showCR:'cleanup'
+		Transcript showCR:'cleanup'
-]
+	    ]
-]
+	]
-[exEnd]
+									[exEnd]
 delayed execution (visitor pattern):
 (looking carefully into the example,
 C/C++ programmers may raise their eyes ;-)
-[exBegin]
+									[exBegin]
-|showBlock countBlock
+	|showBlock countBlock
-howMany
+	 howMany
-top panel b1 b2|
+	 top panel b1 b2|
-howMany := 0.
+	howMany := 0.
-showBlock := [ Transcript showCR:howMany ].
+	showBlock := [ Transcript showCR:howMany ].
-countBlock := [ howMany := howMany + 1 ].
+	countBlock := [ howMany := howMany + 1 ].
-top := StandardSystemView extent:200@200.
+	top := StandardSystemView extent:200@200.
-panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
+	panel := HorizontalPanelView origin:0.0@0.0 corner:1.0@1.0 in:top.
-b1 := Button label:'count up' in:panel.
+	b1 := Button label:'count up' in:panel.
-b1 action:countBlock.
+	b1 action:countBlock.
-b2 := Button label:'show value' in:panel.
+	b2 := Button label:'show value' in:panel.
-b2 action:showBlock.
+	b2 action:showBlock.
-top open.
+	top open.
-Transcript showCR:'new process started;'.
+	Transcript showCR:'new process started;'.
-Transcript showCR:'notice: the blocks can still access the'.
+	Transcript showCR:'notice: the blocks can still access the'.
-Transcript showCR:'        howMany local variable.'.
+	Transcript showCR:'        howMany local variable.'.
-[exEnd]
+									[exEnd]
 "
 ! !
 !Block class methodsFor:'initialization'!
 initialize
 "create signals raised by various errors"
 InvalidNewSignal isNil ifTrue:[
-InvalidNewSignal := Error newSignalMayProceed:false.
+	InvalidNewSignal := Error newSignalMayProceed:false.
-InvalidNewSignal nameClass:self message:#invalidNewSignal.
+	InvalidNewSignal nameClass:self message:#invalidNewSignal.
-InvalidNewSignal notifierString:'blocks are only created by the system'.
+	InvalidNewSignal notifierString:'blocks are only created by the system'.
 ]
 "Modified: 22.4.1996 / 16:34:20 / cg"
 ! !
 "create a new cheap (homeless) block.
 Not for public use - this is a special hook for the compiler."
 |newBlock|
 newBlock := (super basicNew:(literals size))
 			   byteCode:bCode
 			   numArgs:numArgs
 			   numVars:numVars
 			   numStack:nStack
 		     sourcePosition:sourcePos
 "/ (actually, the previous implementation was:
 "/ ^ self valueNowOrOnUnwindDo:aBlock
 "
 [
-[
+	[
-Transcript showCR:'one'.
+	    Transcript showCR:'one'.
-Processor activeProcess terminate.
+	    Processor activeProcess terminate.
-Transcript showCR:'two'.
+	    Transcript showCR:'two'.
-] ensure:[
+	] ensure:[
-Transcript showCR:'three'.
+	    Transcript showCR:'three'.
-].
+	].
 ] fork.
 "
 "
 [
-[
+	[
-Transcript showCR:'one'.
+	    Transcript showCR:'one'.
-Transcript showCR:'two'.
+	    Transcript showCR:'two'.
-] ensure:[
+	] ensure:[
-Transcript showCR:'three'.
+	    Transcript showCR:'three'.
-].
+	].
 ] fork.
 "
 !
 ifCurtailed:aBlock
 "
 |s|
 s := 'Makefile' asFilename readStream.
 [
-^ self
+	^ self
 ] ifCurtailed:[
-Transcript showCR:'closing the stream - even though a return occurred'.
+	Transcript showCR:'closing the stream - even though a return occurred'.
-s close
+	s close
 ]
 "
 "
 [
-|s|
+	 |s|
-s := 'Makefile' asFilename readStream.
+	 s := 'Makefile' asFilename readStream.
-[
+	 [
-Processor activeProcess terminate
+	    Processor activeProcess terminate
-] ifCurtailed:[
+	 ] ifCurtailed:[
-Transcript showCR:'closing the stream - even though process was terminated'.
+	    Transcript showCR:'closing the stream - even though process was terminated'.
-s close
+	    s close
-]
+	 ]
 ] fork
 "
 ! !
 !Block methodsFor:'Compatibility-Dolphin'!
 deferredValueAt:priority
 "Dolphin compatibility method - do not use in new code.
 Dolphin's alias for futureValue"
 ^ Future new
-priority:priority block:self
+	priority:priority block:self
 "Created: / 04-10-2011 / 14:55:56 / cg"
 ! !
 !Block methodsFor:'Compatibility-Squeak'!
 cull: optionalFirstArg
 "activate the receiver with one or zero arguments.
 Squeak compatibility, but also present in VW Smalltalk"
 nargs >= 1 ifTrue:[^ self value:optionalFirstArg].
 ^ self value
 cull: optionalFirstArg cull: optionalSecondArg cull: optionalThirdArg
 "activate the receiver with three or less arguments.
 Squeak compatibility, but also present in VW Smalltalk"
 nargs >= 2 ifTrue:[
-nargs >= 3 ifTrue:[
+	nargs >= 3 ifTrue:[
-^ self value:optionalFirstArg value:optionalSecondArg value:optionalThirdArg
+	    ^ self value:optionalFirstArg value:optionalSecondArg value:optionalThirdArg
-].
+	].
-^ self value:optionalFirstArg value:optionalSecondArg
+	^ self value:optionalFirstArg value:optionalSecondArg
 ].
 nargs = 1 ifTrue:[^ self value:optionalFirstArg].
 ^ self value
 !
 |numArgs|
 numArgs := handlerBlock isBlock ifTrue:[handlerBlock numArgs] ifFalse:[0].
 numArgs == 1 ifTrue:[
-^ self on:Error do:handlerBlock
+	^ self on:Error do:handlerBlock
 ].
 ^ self
-on:Error
+	on:Error
-do:[:ex |
+	do:[:ex |
-|errString errReceiver|
+	    |errString errReceiver|
-numArgs == 0 ifTrue:[
+	    numArgs == 0 ifTrue:[
-ex return:handlerBlock value
+		ex return:handlerBlock value
-] ifFalse:[
+	    ] ifFalse:[
-errString := ex description.
+		errString := ex description.
-errReceiver := ex suspendedContext receiver.
+		errReceiver := ex suspendedContext receiver.
-ex return:(handlerBlock value:errString value:errReceiver)
+		ex return:(handlerBlock value:errString value:errReceiver)
-].
+	    ].
-]
+	]
 "
 |a|
 a := 0.
 !Block methodsFor:'Compatibility-V''Age'!
 apply:aCollection from:start to:end
 "VisualAge compatibility:
 Evaluate the receiver for each variable slot of aCollection from start to end.
 Answer aCollection."
 aCollection from:start to:end do:self.
 ^ aCollection
 "
 [:i | Transcript showCR:i ]
-apply:#(10 20 30 40 50 60) from:2 to:4
+	apply:#(10 20 30 40 50 60) from:2 to:4
 "
 "Created: / 16-05-2012 / 11:20:55 / cg"
 !
 applyWithIndex:aCollection from:start to:end
 "VisualAge compatibility:
 Evaluate the receiver for each variable slot and index of aCollection from start to end.
 Answer aCollection."
 aCollection from:start to:end doWithIndex:self.
 ^ aCollection
 "
 [:el :i | Transcript showCR:(i -> el) ]
-applyWithIndex:#(10 20 30 40 50 60) from:2 to:4
+	applyWithIndex:#(10 20 30 40 50 60) from:2 to:4
 "
 "Created: / 16-05-2012 / 11:22:01 / cg"
 !
 value:arg1 onReturnDo:aBlock
 "VisualAge compatibility: alias for #ensure:
 evaluate the receiver - when the block returns either a local return
 or an unwind (i.e. does a long return), evaluate the argument, aBlock.
 This is used to make certain that cleanup actions
 (for example closing files etc.) are executed regardless of error actions."
 ^ [self value:arg1] ensure:aBlock
 "Created: / 16-05-2012 / 11:29:30 / cg"
 value:arg1 value:arg2 onReturnDo:aBlock
 "VisualAge compatibility: alias for #ensure:
 evaluate the receiver - when the block returns either a local return
 or an unwind (i.e. does a long return), evaluate the argument, aBlock.
 This is used to make certain that cleanup actions
 (for example closing files etc.) are executed regardless of error actions."
 ^ [self value:arg1 value:arg2] ensure:aBlock
 "Created: / 16-05-2012 / 11:29:46 / cg"
 value:arg1 value:arg2 value:arg3 onReturnDo:aBlock
 "VisualAge compatibility: alias for #ensure:
 evaluate the receiver - when the block returns either a local return
 or an unwind (i.e. does a long return), evaluate the argument, aBlock.
 This is used to make certain that cleanup actions
 (for example closing files etc.) are executed regardless of error actions."
 ^ [self value:arg1 value:arg2 value:arg3] ensure:aBlock
 "Created: / 16-05-2012 / 11:29:59 / cg"
 valueOnReturnDo:aBlock
 "VisualAge compatibility: alias for #ensure:
 evaluate the receiver - when the block returns either a local return
 or an unwind (i.e. does a long return), evaluate the argument, aBlock.
 This is used to make certain that cleanup actions
 (for example closing files etc.) are executed regardless of error actions."
 ^ self ensure:aBlock
 "Created: / 15-11-1996 / 11:38:37 / cg"
 Thats the method where the block was created."
 |m|
 home notNil ifTrue:[
-m := home method.
+	m := home method.
-m notNil ifTrue:[^ m].
+	m notNil ifTrue:[^ m].
 ].
 m := self literalAt:1 ifAbsent:nil.
 m isMethod ifTrue:[^ m].
 ^ nil
 "Created: 19.6.1997 / 16:14:57 / cg"
 !
 method
 "return the receivers method
 (the method where the block was created).
 Obsolete: use #homeMethod for ST80 compatibility."
 <resource: #obsolete>
 methodHome
 "return the receiver's method home context (the context where it was
 defined). For cheap blocks, nil is returned"
 home notNil ifTrue:[
-^ home methodHome
+	^ home methodHome
 ].
 ^ nil
 !
 numArgs
 ^ self
 "
 |b|
 b := [:argList | Transcript
 			show:'invoked with args:';
 			showCR:argList
 	  ] asVarArgBlock.
 b value.
 b value:'arg1'.
 b value:'arg1' value:'arg2' value:'arg3' value:'arg4'
 "
 |b b1 b2 b3|
 b := [:a :b :c | a + b + c] beCurryingBlock.
 b numArgs.
 b value:1 value:2 value:3.
 b1 := b value:10.
 b1 numArgs.
 b1 value:2 value:3.
 b2 := b value:10 value:20.
 b2 numArgs.
 b2 value:3.
 deepCopyUsing:aDictionary postCopySelector:postCopySelector
 |copyOfHome copyOfMe|
 home isNil ifTrue:[
-^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector
+	^ super deepCopyUsing:aDictionary postCopySelector:postCopySelector
 ].
 copyOfHome := home deepCopyUsing:aDictionary.
 copyOfMe := self shallowCopy.
 copyOfMe setHome:copyOfHome.
 copyOfMe perform:postCopySelector withOptionalArgument:self and:aDictionary.
 micros := endTime - startTime.
 Transcript show:anInfoString.
 micros < 1000 ifTrue:[
-Transcript show:micros; show:' µs'.
+	Transcript show:micros; show:' µs'.
 ] ifFalse:[
-micros < 100000 ifTrue:[
+	micros < 100000 ifTrue:[
-millis := (micros / 1000.0) asFixedPointRoundedToScale:2.
+	    millis := (micros / 1000.0) asFixedPointRoundedToScale:2.
-Transcript show:millis; show:' ms'.
+	    Transcript show:millis; show:' ms'.
-] ifFalse:[
+	] ifFalse:[
-millis := micros // 1000.
+	    millis := micros // 1000.
-Transcript show:(TimeDuration milliseconds:millis).
+	    Transcript show:(TimeDuration milliseconds:millis).
-].
+	].
 ].
 Transcript cr.
 "
-[10 factorial] benchmark:'10 factorial:'
+	[10 factorial] benchmark:'10 factorial:'
-[100 factorial] benchmark:'100 factorial:'
+	[100 factorial] benchmark:'100 factorial:'
 "
 ! !
 !Block methodsFor:'error handling'!
 In this case, the VM sends this to the bad method (the receiver).
 Can only happen when the Compiler/runtime system is broken or
 someone played around."
 ^ InvalidCodeError
-raiseRequestWith:self
+	raiseRequestWith:self
-errorString:'invalid block - not executable'
+	errorString:'invalid block - not executable'
 "Modified: 4.11.1996 / 22:46:39 / cg"
 ! !
 !Block methodsFor:'evaluation'!
 value
 "evaluate the receiver with no block args.
 The receiver must be a block without arguments."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL0( self.asSTCallable() );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(0)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
-#endif
+# endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
+# ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-/* compiled machine code */
+	    /* compiled machine code */
-RETURN ( (*thecode)(self) );
+	    RETURN ( (*thecode)(self) );
-}
+	}
-/* interpreted code */
+	/* interpreted code */
-# ifdef PASS_ARG_POINTER
+#  ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
+	RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
+#  else
+	RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
+#  endif
 # else
-RETURN ( __interpret(self, 0, nil, nil, nil, nil) );
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    /* compiled machine code */
+	    RETURN ( (*thecode)(home) );
+	}
+	/* interpreted code */
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 0, nil, home, nil, nil) );
+#  else
+	RETURN ( __interpret(self, 0, nil, home, nil, nil) );
+#  endif
 # endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-/* compiled machine code */
-RETURN ( (*thecode)(home) );
-}
-/* interpreted code */
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 0, nil, home, nil, nil) );
-# else
-RETURN ( __interpret(self, 0, nil, home, nil, nil) );
-# endif
-#endif
 }
+#endif /* not SCHTEAM */
 %}.
 ^ self wrongNumberOfArguments:0
 !
 value:arg
 "evaluate the receiver with one argument.
 The receiver must be a 1-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL1( self.asSTCallable(), arg );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(1)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
-#endif
+# endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
+# ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg) );
+	    RETURN ( (*thecode)(self, arg) );
-}
+	}
-/* interpreted code */
+	/* interpreted code */
-# ifdef PASS_ARG_POINTER
+#  ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 1, nil, nil, nil, nil, &arg) );
+	RETURN ( __interpret(self, 1, nil, nil, nil, nil, &arg) );
+#  else
+	RETURN ( __interpret(self, 1, nil, nil, nil, nil, arg) );
+#  endif
 # else
-RETURN ( __interpret(self, 1, nil, nil, nil, nil, arg) );
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg) );
+	}
+	/* interpreted code */
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 1, nil, home, nil, nil, &arg) );
+#  else
+	RETURN ( __interpret(self, 1, nil, home, nil, nil, arg) );
+#  endif
 # endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg) );
-}
-/* interpreted code */
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 1, nil, home, nil, nil, &arg) );
-# else
-RETURN ( __interpret(self, 1, nil, home, nil, nil, arg) );
-# endif
-#endif
 }
+#endif /* not SCHTEAM */
 %}.
 ^ self wrongNumberOfArguments:1
 !
 value:arg1 optionalArgument:arg2
 "evaluate the receiver.
 Optionally pass up one or to two arguments (if the receiver is a one/two arg block)."
 nargs == 2 ifTrue:[
-^ self value:arg1 value:arg2
+	^ self value:arg1 value:arg2
 ].
 ^ self value:arg1
 "
 |block|
 block := [:arg | Transcript showCR:arg ].
 block value:2 optionalArgument:3.
 block := [:arg1 :arg2 | Transcript show:arg1; space; showCR:arg2 ].
 block value:2 optionalArgument:3.
 "
 !
 value:arg1 optionalArgument:arg2 and:arg3
 "evaluate the receiver.
 Optionally pass up one, two or three arguments (if the receiver is a 1/2/3-arg block)."
 nargs == 3 ifTrue:[
-^ self value:arg1 value:arg2 value:arg3
+	^ self value:arg1 value:arg2 value:arg3
 ].
 nargs == 2 ifTrue:[
-^ self value:arg1 value:arg2
+	^ self value:arg1 value:arg2
 ].
 ^ self value:arg1
 "
 |block|
 block := [:arg | Transcript showCR:arg ].
 block value:2 optionalArgument:3.
 block := [:arg1 :arg2 | Transcript show:arg1; space; showCR:arg2 ].
 block value:2 optionalArgument:3.
 "
 !
 value:arg1 value:arg2
 "evaluate the receiver with two arguments.
 The receiver must be a 2-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL2( self.asSTCallable(), arg1, arg2 );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(2)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
-#endif
+# endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
+# ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2) );
+	    RETURN ( (*thecode)(self, arg1, arg2) );
-}
+	}
-# ifdef PASS_ARG_POINTER
+#  ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 2, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 2, nil, nil, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 2, nil, nil, nil, nil, arg1, arg2) );
+#  endif
 # else
-RETURN ( __interpret(self, 2, nil, nil, nil, nil, arg1, arg2) );
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg1, arg2) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 2, nil, home, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 2, nil, home, nil, nil, arg1, arg2) );
+#  endif
 # endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 2, nil, home, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 2, nil, home, nil, nil, arg1, arg2) );
-# endif
-#endif
 }
+#endif /* not SCHTEAM */
 %}.
 ^ self wrongNumberOfArguments:2
 !
 value:arg1 value:arg2 optionalArgument:arg3
 "evaluate the receiver.
 Optionally pass two or threearguments (if the receiver is a 2/3-arg block)."
 nargs == 3 ifTrue:[
-^ self value:arg1 value:arg2 value:arg3
+	^ self value:arg1 value:arg2 value:arg3
 ].
 ^ self value:arg1 value:arg2
 !
 value:arg1 value:arg2 value:arg3
 "evaluate the receiver with three arguments.
 The receiver must be a 3-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL3( self.asSTCallable(), arg1, arg2, arg3 );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(3)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
-#endif
+# endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
+# ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3) );
-}
+	}
-# ifdef PASS_ARG_POINTER
+#  ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 3, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 3, nil, nil, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 3, nil, nil, nil, nil, arg1, arg2, arg3) );
+#  endif
 # else
-RETURN ( __interpret(self, 3, nil, nil, nil, nil, arg1, arg2, arg3) );
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 3, nil, home, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 3, nil, home, nil, nil, arg1, arg2, arg3) );
+#  endif
 # endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 3, nil, home, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 3, nil, home, nil, nil, arg1, arg2, arg3) );
-# endif
-#endif
 }
+#endif /* not SCHTEAM */
 %}.
 ^ self wrongNumberOfArguments:3
 !
 value:arg1 value:arg2 value:arg3 value:arg4
 "evaluate the receiver with four arguments.
 The receiver must be a 4-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL4( self.asSTCallable(), arg1, arg2, arg3, arg4 );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(4)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+# endif
+	thecode = __BlockInstPtr(self)->b_code;
+# ifdef NEW_BLOCK_CALL
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 4, nil, nil, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 4, nil, nil, nil, nil, arg1, arg2, arg3, arg4) );
+#  endif
+# else
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 4, nil, home, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 4, nil, home, nil, nil, arg1, arg2, arg3, arg4) );
+#  endif
+# endif
+}
 #endif
-thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 4, nil, nil, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 4, nil, nil, nil, nil, arg1, arg2, arg3, arg4) );
-# endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 4, nil, home, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 4, nil, home, nil, nil, arg1, arg2, arg3, arg4) );
-# endif
-#endif
-}
 %}.
 ^ self wrongNumberOfArguments:4
 !
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5
 "evaluate the receiver with five arguments.
 The receiver must be a 5-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL5( self.asSTCallable(), arg1, arg2, arg3, arg4, arg5 );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(5)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
-#endif
+# endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
+# ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5) );
-}
+	}
-# ifdef PASS_ARG_POINTER
+#  ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 5, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 5, nil, nil, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 5, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+#  endif
 # else
-RETURN ( __interpret(self, 5, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 5, nil, home, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 5, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5) );
+#  endif
 # endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 5, nil, home, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 5, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5) );
-# endif
-#endif
 }
+#endif /* not SCHTEAM */
 %}.
 ^ self wrongNumberOfArguments:5
 !
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5 value:arg6
 "evaluate the receiver with six arguments.
 The receiver must be a 6-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL6( self.asSTCallable(), arg1, arg2, arg3, arg4, arg5, arg6 );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(6)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
-#endif
+# endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
+# ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6) );
-}
+	}
-# ifdef PASS_ARG_POINTER
+#  ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 6, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 6, nil, nil, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 6, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+#  endif
 # else
-RETURN ( __interpret(self, 6, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 6, nil, home, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 6, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
+#  endif
 # endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 6, nil, home, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 6, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6) );
-# endif
-#endif
 }
+#endif /* not SCHTEAM */
 %}.
 ^ self wrongNumberOfArguments:6
 !
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5 value:arg6 value:arg7
 "evaluate the receiver with seven arguments.
 The receiver must be a 7-arg block."
 %{  /* NOCONTEXT */
+#ifdef __SCHTEAM__
+return context.TAILCALL7( self.asSTCallable(), arg1, arg2, arg3, arg4, arg5, arg6, arg7 );
+/* NOTREACHED */
+#else
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(7)) {
-#if defined(THIS_CONTEXT)
+# if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+# endif
+	thecode = __BlockInstPtr(self)->b_code;
+# ifdef NEW_BLOCK_CALL
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 7, nil, nil, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 7, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+#  endif
+# else
+	home = __BlockInstPtr(self)->b_home;
+	if (thecode != (OBJFUNC)nil) {
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+	}
+#  ifdef PASS_ARG_POINTER
+	RETURN ( __interpret(self, 7, nil, home, nil, nil, &arg1) );
+#  else
+	RETURN ( __interpret(self, 7, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
+#  endif
+# endif
+}
 #endif
-thecode = __BlockInstPtr(self)->b_code;
-#ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 7, nil, nil, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 7, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
-# endif
-#else
-home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
-}
-# ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 7, nil, home, nil, nil, &arg1) );
-# else
-RETURN ( __interpret(self, 7, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7) );
-# endif
-#endif
-}
 %}.
 ^ self wrongNumberOfArguments:7
 !
 value:arg1 value:arg2 value:arg3 value:arg4 value:arg5 value:arg6 value:arg7 value:arg8
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(8)) {
 #if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 8, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 8, nil, nil, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 8, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+	RETURN ( __interpret(self, 8, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
 # endif
 #else
-home = __BlockInstPtr(self)->b_home;
+	home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 8, nil, home, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 8, nil, home, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 8, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
+	RETURN ( __interpret(self, 8, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) );
 # endif
 #endif
 }
 %}.
 ^ self wrongNumberOfArguments:8
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(9)) {
 #if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 9, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 9, nil, nil, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 9, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
+	RETURN ( __interpret(self, 9, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
 # endif
 #else
-home = __BlockInstPtr(self)->b_home;
+	home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 9, nil, home, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 9, nil, home, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 9, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
+	RETURN ( __interpret(self, 9, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) );
 # endif
 #endif
 }
 %}.
 ^ self wrongNumberOfArguments:9
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(10)) {
 #if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 10, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 10, nil, nil, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 10, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
+	RETURN ( __interpret(self, 10, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
 # endif
 #else
-home = __BlockInstPtr(self)->b_home;
+	home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 10, nil, home, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 10, nil, home, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 10, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
+	RETURN ( __interpret(self, 10, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10) );
 # endif
 #endif
 }
 %}.
 ^ self wrongNumberOfArguments:10
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(11)) {
 #if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 11, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 11, nil, nil, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 11, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
+	RETURN ( __interpret(self, 11, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
 # endif
 #else
-home = __BlockInstPtr(self)->b_home;
+	home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 11, nil, home, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 11, nil, home, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 11, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
+	RETURN ( __interpret(self, 11, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11) );
 # endif
 #endif
 }
 %}.
 ^ self wrongNumberOfArguments:11
 REGISTER OBJFUNC thecode;
 OBJ home;
 if (__INST(nargs) == __mkSmallInteger(12)) {
 #if defined(THIS_CONTEXT)
-if (__ISVALID_ILC_LNO(__pilc))
+	if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
-thecode = __BlockInstPtr(self)->b_code;
+	thecode = __BlockInstPtr(self)->b_code;
 #ifdef NEW_BLOCK_CALL
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
+	    RETURN ( (*thecode)(self, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 12, nil, nil, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 12, nil, nil, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 12, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
+	RETURN ( __interpret(self, 12, nil, nil, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
 # endif
 #else
-home = __BlockInstPtr(self)->b_home;
+	home = __BlockInstPtr(self)->b_home;
-if (thecode != (OBJFUNC)nil) {
+	if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
+	    RETURN ( (*thecode)(home, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
-}
+	}
 # ifdef PASS_ARG_POINTER
-RETURN ( __interpret(self, 12, nil, home, nil, nil, &arg1) );
+	RETURN ( __interpret(self, 12, nil, home, nil, nil, &arg1) );
 # else
-RETURN ( __interpret(self, 12, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
+	RETURN ( __interpret(self, 12, nil, home, nil, nil, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9, arg10, arg11, arg12) );
 # endif
 #endif
 }
 %}.
 ^ self wrongNumberOfArguments:12
 |oldPrio retVal activeProcess|
 activeProcess := Processor activeProcess.
 oldPrio := Processor activePriority.
 [
-activeProcess priority:priority.
+	activeProcess priority:priority.
-retVal := self value.
+	retVal := self value.
 ] ensure:[
-activeProcess priority:oldPrio
+	activeProcess priority:oldPrio
 ].
 ^ retVal
 "
 [
-1000 timesRepeat:[
+	 1000 timesRepeat:[
-1000 factorial
+	     1000 factorial
-]
+	 ]
 ] valueAt:3
 "
 "Created: / 29.7.1998 / 19:19:48 / cg"
 !
 The size of the argArray must match the number of arguments the receiver expects."
 |a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
 (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-argArray isCollection ifTrue:[
+	argArray isCollection ifTrue:[
-^ self valueWithArguments:argArray asArray
+	    ^ self valueWithArguments:argArray asArray
-].
+	].
-^ self badArgumentArray:argArray
+	^ self badArgumentArray:argArray
 ].
 (argArray size == nargs) ifFalse:[
-^ self wrongNumberOfArguments:argArray size
+	^ self wrongNumberOfArguments:argArray size
 ].
 %{
 REGISTER OBJFUNC thecode;
 OBJ home;
 REGISTER OBJ *ap;
 OBJ nA;
 #if defined(THIS_CONTEXT)
 if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
 thecode = __BlockInstPtr(self)->b_code;
 nA = __INST(nargs);
 #ifndef NEW_BLOCK_CALL
 home = __BlockInstPtr(self)->b_home;
 if (thecode != (OBJFUNC)nil) {
-/* the most common case (0 args) here (without a switch) */
+	/* the most common case (0 args) here (without a switch) */
-if (nA == __mkSmallInteger(0)) {
+	if (nA == __mkSmallInteger(0)) {
-RETURN ( (*thecode)(home) );
+	    RETURN ( (*thecode)(home) );
-}
+	}
-ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
-switch ((INT)(nA)) {
+	switch ((INT)(nA)) {
-default:
+	    default:
-goto error;
+		goto error;
-case (INT)__mkSmallInteger(15):
+	    case (INT)__mkSmallInteger(15):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
-case (INT)__mkSmallInteger(14):
+	    case (INT)__mkSmallInteger(14):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13]) );
-case (INT)__mkSmallInteger(13):
+	    case (INT)__mkSmallInteger(13):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12]) );
-case (INT)__mkSmallInteger(12):
+	    case (INT)__mkSmallInteger(12):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11]) );
-case (INT)__mkSmallInteger(11):
+	    case (INT)__mkSmallInteger(11):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10]) );
-case (INT)__mkSmallInteger(10):
+	    case (INT)__mkSmallInteger(10):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9]) );
-case (INT)__mkSmallInteger(9):
+	    case (INT)__mkSmallInteger(9):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
-case (INT)__mkSmallInteger(8):
+	    case (INT)__mkSmallInteger(8):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
-case (INT)__mkSmallInteger(7):
+	    case (INT)__mkSmallInteger(7):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
-case (INT)__mkSmallInteger(6):
+	    case (INT)__mkSmallInteger(6):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
-case (INT)__mkSmallInteger(5):
+	    case (INT)__mkSmallInteger(5):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
-case (INT)__mkSmallInteger(4):
+	    case (INT)__mkSmallInteger(4):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
-case (INT)__mkSmallInteger(3):
+	    case (INT)__mkSmallInteger(3):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
-case (INT)__mkSmallInteger(2):
+	    case (INT)__mkSmallInteger(2):
-RETURN ( (*thecode)(home, ap[0], ap[1]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1]) );
-case (INT)__mkSmallInteger(1):
+	    case (INT)__mkSmallInteger(1):
-RETURN ( (*thecode)(home, ap[0]) );
+		RETURN ( (*thecode)(home, ap[0]) );
-case (INT)__mkSmallInteger(0):
+	    case (INT)__mkSmallInteger(0):
-RETURN ( (*thecode)(home) );
+		RETURN ( (*thecode)(home) );
-break;
+		break;
-}
+	}
 }
 #endif
 if (nA != __mkSmallInteger(0)) {
-ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
-switch ((INT)nA) {
+	switch ((INT)nA) {
-default:
+	    default:
-goto error;
+		goto error;
-case (INT)__mkSmallInteger(15):
+	    case (INT)__mkSmallInteger(15):
-a15 = ap[14];
+		a15 = ap[14];
-case (INT)__mkSmallInteger(14):
+	    case (INT)__mkSmallInteger(14):
-a14 = ap[13];
+		a14 = ap[13];
-case (INT)__mkSmallInteger(13):
+	    case (INT)__mkSmallInteger(13):
-a13 = ap[12];
+		a13 = ap[12];
-case (INT)__mkSmallInteger(12):
+	    case (INT)__mkSmallInteger(12):
-a12 = ap[11];
+		a12 = ap[11];
-case (INT)__mkSmallInteger(11):
+	    case (INT)__mkSmallInteger(11):
-a11 = ap[10];
+		a11 = ap[10];
-case (INT)__mkSmallInteger(10):
+	    case (INT)__mkSmallInteger(10):
-a10 = ap[9];
+		a10 = ap[9];
-case (INT)__mkSmallInteger(9):
+	    case (INT)__mkSmallInteger(9):
-a9 = ap[8];
+		a9 = ap[8];
-case (INT)__mkSmallInteger(8):
+	    case (INT)__mkSmallInteger(8):
-a8 = ap[7];
+		a8 = ap[7];
-case (INT)__mkSmallInteger(7):
+	    case (INT)__mkSmallInteger(7):
-a7 = ap[6];
+		a7 = ap[6];
-case (INT)__mkSmallInteger(6):
+	    case (INT)__mkSmallInteger(6):
-a6 = ap[5];
+		a6 = ap[5];
-case (INT)__mkSmallInteger(5):
+	    case (INT)__mkSmallInteger(5):
-a5 = ap[4];
+		a5 = ap[4];
-case (INT)__mkSmallInteger(4):
+	    case (INT)__mkSmallInteger(4):
-a4 = ap[3];
+		a4 = ap[3];
-case (INT)__mkSmallInteger(3):
+	    case (INT)__mkSmallInteger(3):
-a3 = ap[2];
+		a3 = ap[2];
-case (INT)__mkSmallInteger(2):
+	    case (INT)__mkSmallInteger(2):
-a2 = ap[1];
+		a2 = ap[1];
-case (INT)__mkSmallInteger(1):
+	    case (INT)__mkSmallInteger(1):
-a1 = ap[0];
+		a1 = ap[0];
-case (INT)__mkSmallInteger(0):
+	    case (INT)__mkSmallInteger(0):
-break;
+		break;
-}
+	}
 }
 #ifdef NEW_BLOCK_CALL
 if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
+	RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
 }
 # ifdef PASS_ARG_POINTER
 RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, &a1) );
 # else
 RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
 %}.
 "
 the above code only supports up-to 15 arguments
 "
 ^ ArgumentError
-raiseRequestWith:self
+	raiseRequestWith:self
-errorString:'only blocks with up-to 15 arguments supported'
+	errorString:'only blocks with up-to 15 arguments supported'
 !
 valueWithOptionalArgument:arg
 "evaluate the receiver.
 Optionally pass an argument (if the receiver is a one arg block)."
 nargs == 1 ifTrue:[
-^ self value:arg
+	^ self value:arg
 ].
 ^ self value
 "
 |block|
 block := [ Transcript showCR:'hello' ].
 block valueWithOptionalArgument:2.
 block := [:arg | Transcript showCR:arg ].
 block valueWithOptionalArgument:2.
 "
 !
 valueWithOptionalArgument:arg1 and:arg2
 "evaluate the receiver.
 Optionally pass up to two arguments (if the receiver is a one/two arg block)."
 nargs == 2 ifTrue:[
-^ self value:arg1 value:arg2
+	^ self value:arg1 value:arg2
 ].
 nargs == 1 ifTrue:[
-^ self value:arg1
+	^ self value:arg1
 ].
 ^ self value
 "
 |block|
 block := [ Transcript showCR:'hello' ].
 block valueWithOptionalArgument:2.
 block := [:arg | Transcript showCR:arg ].
 block valueWithOptionalArgument:2.
 block := [:arg1 :arg2 | Transcript showCR:arg1. Transcript showCR:arg2 ].
 block valueWithOptionalArgument:10 and:20.
 "
 !
 valueWithOptionalArgument:arg1 and:arg2 and:arg3
 "evaluate the receiver.
 Optionally pass up to three arguments (if the receiver is a one/two/three arg block)."
 nargs == 3 ifTrue:[
-^ self value:arg1 value:arg2 value:arg3
+	^ self value:arg1 value:arg2 value:arg3
 ].
 nargs == 2 ifTrue:[
-^ self value:arg1 value:arg2
+	^ self value:arg1 value:arg2
 ].
 nargs == 1 ifTrue:[
-^ self value:arg1
+	^ self value:arg1
 ].
 ^ self value
 "
 |block|
 block := [ Transcript showCR:'hello' ].
 block valueWithOptionalArgument:2.
 block := [:arg | Transcript showCR:arg ].
 block valueWithOptionalArgument:2.
 block := [:arg1 :arg2 | Transcript showCR:arg1. Transcript showCR:arg2 ].
 block valueWithOptionalArgument:10 and:20.
 "
 !
 valueWithOptionalArgument:arg1 and:arg2 and:arg3 and:arg4
 "evaluate the receiver.
 Optionally pass up to four arguments (if the receiver is a one/two/three/four arg block)."
 nargs == 4 ifTrue:[
-^ self value:arg1 value:arg2 value:arg3 value:arg4
+	^ self value:arg1 value:arg2 value:arg3 value:arg4
 ].
 nargs == 3 ifTrue:[
-^ self value:arg1 value:arg2 value:arg3
+	^ self value:arg1 value:arg2 value:arg3
 ].
 nargs == 2 ifTrue:[
-^ self value:arg1 value:arg2
+	^ self value:arg1 value:arg2
 ].
 nargs == 1 ifTrue:[
-^ self value:arg1
+	^ self value:arg1
 ].
 ^ self value
 "
 |block|
 block := [ Transcript showCR:'hello' ].
 block valueWithOptionalArgument:2.
 block := [:arg | Transcript showCR:arg ].
 block valueWithOptionalArgument:2.
 block := [:arg1 :arg2 | Transcript showCR:arg1. Transcript showCR:arg2 ].
 block valueWithOptionalArgument:10 and:20.
 "
 !
 valueWithOptionalArguments:argArray
 "evaluate the receiver with arguments as required taken from argArray.
 If the size of the argArray is smaller than the number of arguments, an error is raised."
 |numArgsProvided a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
 (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-argArray isCollection ifTrue:[
+	argArray isCollection ifTrue:[
-^ self valueWithArguments:argArray asArray
+	    ^ self valueWithArguments:argArray asArray
-].
+	].
-^ self badArgumentArray:argArray
+	^ self badArgumentArray:argArray
 ].
 (argArray size >= nargs) ifFalse:[
-^ self wrongNumberOfArguments:argArray size
+	^ self wrongNumberOfArguments:argArray size
 ].
 %{
 REGISTER OBJFUNC thecode;
 OBJ home;
 REGISTER OBJ *ap;
 OBJ nA;
 int __numArgsProvided = __intVal(numArgsProvided);
 #if defined(THIS_CONTEXT)
 if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
 thecode = __BlockInstPtr(self)->b_code;
 nA = __INST(nargs);
 if (argArray == nil) {
-ap = 0;
+	ap = 0;
 } else {
-ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
 }
 #ifndef NEW_BLOCK_CALL
 home = __BlockInstPtr(self)->b_home;
 if (thecode != (OBJFUNC)nil) {
-/* the most common case (0 args) here (without a switch) */
+	/* the most common case (0 args) here (without a switch) */
-if (nA == __mkSmallInteger(0)) {
+	if (nA == __mkSmallInteger(0)) {
-RETURN ( (*thecode)(home) );
+	    RETURN ( (*thecode)(home) );
-}
+	}
-switch ((INT)(nA)) {
+	switch ((INT)(nA)) {
-default:
+	    default:
-goto error;
+		goto error;
-case (INT)__mkSmallInteger(15):
+	    case (INT)__mkSmallInteger(15):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13], ap[14]) );
-case (INT)__mkSmallInteger(14):
+	    case (INT)__mkSmallInteger(14):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12], ap[13]) );
-case (INT)__mkSmallInteger(13):
+	    case (INT)__mkSmallInteger(13):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11], ap[12]) );
-case (INT)__mkSmallInteger(12):
+	    case (INT)__mkSmallInteger(12):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10], ap[11]) );
-case (INT)__mkSmallInteger(11):
+	    case (INT)__mkSmallInteger(11):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9], ap[10]) );
-case (INT)__mkSmallInteger(10):
+	    case (INT)__mkSmallInteger(10):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8], ap[9]) );
-case (INT)__mkSmallInteger(9):
+	    case (INT)__mkSmallInteger(9):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7], ap[8]) );
-case (INT)__mkSmallInteger(8):
+	    case (INT)__mkSmallInteger(8):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6], ap[7]) );
-case (INT)__mkSmallInteger(7):
+	    case (INT)__mkSmallInteger(7):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5], ap[6]) );
-case (INT)__mkSmallInteger(6):
+	    case (INT)__mkSmallInteger(6):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4], ap[5]) );
-case (INT)__mkSmallInteger(5):
+	    case (INT)__mkSmallInteger(5):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3], ap[4]) );
-case (INT)__mkSmallInteger(4):
+	    case (INT)__mkSmallInteger(4):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2], ap[3]) );
-case (INT)__mkSmallInteger(3):
+	    case (INT)__mkSmallInteger(3):
-RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1], ap[2]) );
-case (INT)__mkSmallInteger(2):
+	    case (INT)__mkSmallInteger(2):
-RETURN ( (*thecode)(home, ap[0], ap[1]) );
+		RETURN ( (*thecode)(home, ap[0], ap[1]) );
-case (INT)__mkSmallInteger(1):
+	    case (INT)__mkSmallInteger(1):
-RETURN ( (*thecode)(home, ap[0]) );
+		RETURN ( (*thecode)(home, ap[0]) );
-case (INT)__mkSmallInteger(0):
+	    case (INT)__mkSmallInteger(0):
-RETURN ( (*thecode)(home) );
+		RETURN ( (*thecode)(home) );
-break;
+		break;
-}
+	}
 }
 #endif
 if (nA != __mkSmallInteger(0)) {
-ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
-switch ((INT)nA) {
+	switch ((INT)nA) {
-default:
+	    default:
-goto error;
+		goto error;
-case (INT)__mkSmallInteger(15):
+	    case (INT)__mkSmallInteger(15):
-a15 = ap[14];
+		a15 = ap[14];
-case (INT)__mkSmallInteger(14):
+	    case (INT)__mkSmallInteger(14):
-a14 = ap[13];
+		a14 = ap[13];
-case (INT)__mkSmallInteger(13):
+	    case (INT)__mkSmallInteger(13):
-a13 = ap[12];
+		a13 = ap[12];
-case (INT)__mkSmallInteger(12):
+	    case (INT)__mkSmallInteger(12):
-a12 = ap[11];
+		a12 = ap[11];
-case (INT)__mkSmallInteger(11):
+	    case (INT)__mkSmallInteger(11):
-a11 = ap[10];
+		a11 = ap[10];
-case (INT)__mkSmallInteger(10):
+	    case (INT)__mkSmallInteger(10):
-a10 = ap[9];
+		a10 = ap[9];
-case (INT)__mkSmallInteger(9):
+	    case (INT)__mkSmallInteger(9):
-a9 = ap[8];
+		a9 = ap[8];
-case (INT)__mkSmallInteger(8):
+	    case (INT)__mkSmallInteger(8):
-a8 = ap[7];
+		a8 = ap[7];
-case (INT)__mkSmallInteger(7):
+	    case (INT)__mkSmallInteger(7):
-a7 = ap[6];
+		a7 = ap[6];
-case (INT)__mkSmallInteger(6):
+	    case (INT)__mkSmallInteger(6):
-a6 = ap[5];
+		a6 = ap[5];
-case (INT)__mkSmallInteger(5):
+	    case (INT)__mkSmallInteger(5):
-a5 = ap[4];
+		a5 = ap[4];
-case (INT)__mkSmallInteger(4):
+	    case (INT)__mkSmallInteger(4):
-a4 = ap[3];
+		a4 = ap[3];
-case (INT)__mkSmallInteger(3):
+	    case (INT)__mkSmallInteger(3):
-a3 = ap[2];
+		a3 = ap[2];
-case (INT)__mkSmallInteger(2):
+	    case (INT)__mkSmallInteger(2):
-a2 = ap[1];
+		a2 = ap[1];
-case (INT)__mkSmallInteger(1):
+	    case (INT)__mkSmallInteger(1):
-a1 = ap[0];
+		a1 = ap[0];
-case (INT)__mkSmallInteger(0):
+	    case (INT)__mkSmallInteger(0):
-break;
+		break;
-}
+	}
 }
 #ifdef NEW_BLOCK_CALL
 if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
+	RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
 }
 # ifdef PASS_ARG_POINTER
 RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, &a1) );
 # else
 RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
 %}.
 "
 the above code only supports up-to 15 arguments
 "
 ^ ArgumentError
-raiseRequestWith:self
+	raiseRequestWith:self
-errorString:'only blocks with up-to 15 arguments supported'
+	errorString:'only blocks with up-to 15 arguments supported'
 !
 valueWithPossibleArguments:argArray
 "evaluate the receiver with arguments as required taken from argArray.
 If argArray provides less than the required number of arguments,
 nil is assumed for any remaining argument.
 (i.e. argArray may be smaller than the required number).
 Only the required number of arguments is taken from argArray or nil;
 (i.e. argArray may be larger than the required number)."
 |numArgsProvided a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 a11 a12 a13 a14 a15|
 (argArray notNil and:[(argArray class ~~ Array) and:[argArray isArray not]]) ifTrue:[
-argArray isCollection ifTrue:[
+	argArray isCollection ifTrue:[
-^ self valueWithArguments:argArray asArray
+	    ^ self valueWithArguments:argArray asArray
-].
+	].
-^ self badArgumentArray:argArray
+	^ self badArgumentArray:argArray
 ].
 numArgsProvided := argArray size.
 %{
 REGISTER OBJFUNC thecode;
 OBJ home;
 OBJ nA;
 int __numArgsProvided = __intVal(numArgsProvided);
 #if defined(THIS_CONTEXT)
 if (__ISVALID_ILC_LNO(__pilc))
-__ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
+	    __ContextInstPtr(__thisContext)->c_lineno = __ILC_LNO_AS_OBJ(__pilc);
 #endif
 thecode = __BlockInstPtr(self)->b_code;
 nA = __INST(nargs);
 if (argArray == nil) {
-ap = 0;
+	ap = 0;
 } else {
-ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
+	ap = __arrayVal(argArray);   /* nonNil after above test (size is known to be ok) */
 }
 switch (__numArgsProvided) {
-default:
+	default:
-case 15: a15 = ap[14];
+	case 15: a15 = ap[14];
-case 14: a14 = ap[13];
+	case 14: a14 = ap[13];
-case 13: a13 = ap[12];
+	case 13: a13 = ap[12];
-case 12: a12 = ap[11];
+	case 12: a12 = ap[11];
-case 11: a11 = ap[10];
+	case 11: a11 = ap[10];
-case 10: a10 = ap[9];
+	case 10: a10 = ap[9];
-case 9: a9 = ap[8];
+	case 9: a9 = ap[8];
-case 8: a8 = ap[7];
+	case 8: a8 = ap[7];
-case 7: a7 = ap[6];
+	case 7: a7 = ap[6];
-case 6: a6 = ap[5];
+	case 6: a6 = ap[5];
-case 5: a5 = ap[4];
+	case 5: a5 = ap[4];
-case 4: a4 = ap[3];
+	case 4: a4 = ap[3];
-case 3: a3 = ap[2];
+	case 3: a3 = ap[2];
-case 2: a2 = ap[1];
+	case 2: a2 = ap[1];
-case 1: a1 = ap[0];
+	case 1: a1 = ap[0];
-case 0: ;
+	case 0: ;
 }
 #ifndef NEW_BLOCK_CALL
 home = __BlockInstPtr(self)->b_home;
 if (thecode != (OBJFUNC)nil) {
-/* the most common case (0 args) here (without a switch) */
+	/* the most common case (0 args) here (without a switch) */
-if (nA == __mkSmallInteger(0)) {
+	if (nA == __mkSmallInteger(0)) {
-RETURN ( (*thecode)(home) );
+	    RETURN ( (*thecode)(home) );
-}
+	}
-switch ((INT)(nA)) {
+	switch ((INT)(nA)) {
-default:
+	    default:
-goto error;
+		goto error;
-case (INT)__mkSmallInteger(15):
+	    case (INT)__mkSmallInteger(15):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
-case (INT)__mkSmallInteger(14):
+	    case (INT)__mkSmallInteger(14):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14) );
-case (INT)__mkSmallInteger(13):
+	    case (INT)__mkSmallInteger(13):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13) );
-case (INT)__mkSmallInteger(12):
+	    case (INT)__mkSmallInteger(12):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12) );
-case (INT)__mkSmallInteger(11):
+	    case (INT)__mkSmallInteger(11):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11) );
-case (INT)__mkSmallInteger(10):
+	    case (INT)__mkSmallInteger(10):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10) );
-case (INT)__mkSmallInteger(9):
+	    case (INT)__mkSmallInteger(9):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8, a9) );
-case (INT)__mkSmallInteger(8):
+	    case (INT)__mkSmallInteger(8):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7, a8) );
-case (INT)__mkSmallInteger(7):
+	    case (INT)__mkSmallInteger(7):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6, a7) );
-case (INT)__mkSmallInteger(6):
+	    case (INT)__mkSmallInteger(6):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5, a6) );
-case (INT)__mkSmallInteger(5):
+	    case (INT)__mkSmallInteger(5):
-RETURN ( (*thecode)(home, a1, a2, a3, a4, a5) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4, a5) );
-case (INT)__mkSmallInteger(4):
+	    case (INT)__mkSmallInteger(4):
-RETURN ( (*thecode)(home, a1, a2, a3, a4) );
+		RETURN ( (*thecode)(home, a1, a2, a3, a4) );
-case (INT)__mkSmallInteger(3):
+	    case (INT)__mkSmallInteger(3):
-RETURN ( (*thecode)(home, a1, a2, a3) );
+		RETURN ( (*thecode)(home, a1, a2, a3) );
-case (INT)__mkSmallInteger(2):
+	    case (INT)__mkSmallInteger(2):
-RETURN ( (*thecode)(home, a1, a2) );
+		RETURN ( (*thecode)(home, a1, a2) );
-case (INT)__mkSmallInteger(1):
+	    case (INT)__mkSmallInteger(1):
-RETURN ( (*thecode)(home, a1) );
+		RETURN ( (*thecode)(home, a1) );
-case (INT)__mkSmallInteger(0):
+	    case (INT)__mkSmallInteger(0):
-RETURN ( (*thecode)(home) );
+		RETURN ( (*thecode)(home) );
-break;
+		break;
-}
+	}
 }
 #endif
 #ifdef NEW_BLOCK_CALL
 if (thecode != (OBJFUNC)nil) {
-RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
+	RETURN ( (*thecode)(self, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
 }
 # ifdef PASS_ARG_POINTER
 RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, &a1) );
 # else
 RETURN ( __interpret(self, __intVal(nA), nil, nil, nil, nil, a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15) );
 %}.
 "
 the above code only supports up-to 15 arguments
 "
 ^ ArgumentError
-raiseRequestWith:self
+	raiseRequestWith:self
-errorString:'only blocks with up-to 15 arguments supported'
+	errorString:'only blocks with up-to 15 arguments supported'
 ! !
 !Block methodsFor:'exception handling'!
 on:aSignalOrSignalSetOrException do:exceptionBlock
 "added for ANSI compatibility; evaluate the receiver,
 handling aSignalOrSignalSetOrException.
 The 2nd argument, exceptionBlock is evaluated
 if the signal is raised during evaluation."
 <context: #return>
 <exception: #handle>
 "/ thisContext markForHandle. -- same as above pragma
 ^ self value. "the real logic is in Exception>>doRaise"
 "
 [
-1 foo
+	1 foo
 ] on:MessageNotUnderstood do:[:ex | self halt]
 [
-1 foo
+	1 foo
 ] on:(MessageNotUnderstood , AbortOperationRequest) do:[:ex | self halt]
 [
-1 foo
+	1 foo
 ] on:SignalSet anySignal do:[:ex| 2 bar. self halt]
 "
 "Modified: / 26.7.1999 / 15:30:48 / stefan"
 !
 on:aSignalOrSignalSetOrException do:exceptionBlock ensure:ensureBlock
 "added for ANSI compatibility; evaluate the receiver,
 handling aSignalOrSignalSetOrException.
 The 2nd argument, exceptionBlock is evaluated
 if the signal is raised during evaluation.
 The 3rd argument, ensureBlock is evaluated in any case - even if the activity
 was unwound due to an unhandled exception."
 "
 |e|
 e := 0.
 [
-1 foo
+	1 foo
 ] on:MessageNotUnderstood
 do:[:ex | self halt]
 ensure:[ e := 1 ].
 self assert:(e == 1).
 "
 "
 |e|
 e := 0.
 [
-1 negated
+	1 negated
 ] on:MessageNotUnderstood
 do:[:ex | self halt]
 ensure:[ e := 1 ].
 self assert:(e == 1).
 "
 !
 on:anExceptionHandler do:exceptionBlock on:anExceptionHandler2 do:anExceptionBlock2
 "added for ANSI compatibility; evaluate the receiver,
 handling aSignalOrSignalSetOrException.
 The 2nd argument, exceptionBlock is evaluated
 if the signal is raised during evaluation."
 <context: #return>
 <exception: #handle>
 "/ thisContext markForHandle. -- same as above pragma
 ^ self value. "the real logic is in Exception>>doRaise"
 "
 [
-1 foo
+	1 foo
 ] on:MessageNotUnderstood do:[:ex | self halt:'Got MessageNotUnderstood']
 on:Error do:[:ex| self halt:'Got Error']
 [
-1 // 0
+	1 // 0
 ] on:MessageNotUnderstood do:[:ex | self halt:'Got MessageNotUnderstood']
 on:Error do:[:ex| self halt:'Got Error']
 "
 "Modified: / 26.7.1999 / 15:30:48 / stefan"
 !
 ^ self valueWithWatchDog:[^ nil] afterMilliseconds:aTimeDuration asMilliseconds
 "
 [
-1 to:15 do:[:round |
+	1 to:15 do:[:round |
-Transcript showCR:round.
+	    Transcript showCR:round.
-Delay waitForMilliseconds:20.
+	    Delay waitForMilliseconds:20.
-].
+	].
-true
+	true
 ] valueWithTimeout:(TimeDuration seconds:1)
 "
 "
 [
-1 to:100 do:[:round |
+	1 to:100 do:[:round |
-Transcript showCR:round.
+	    Transcript showCR:round.
-Delay waitForMilliseconds:20.
+	    Delay waitForMilliseconds:20.
-].
+	].
-true
+	true
 ] valueWithTimeout:(TimeDuration seconds:1)
 "
 !
 valueWithWatchDog:exceptionBlock afterMilliseconds:aTimeLimit
 "a watchdog on a block's execution. If the block does not finish its
 |showStopper me retVal done inError|
 done := false.
 me := Processor activeProcess.
 showStopper :=
-[
+	[
-done ifFalse:[
+	    done ifFalse:[
-me interruptWith:[
+		me interruptWith:[
-(Processor activeProcess state ~~ #debug) ifTrue:[
+		    (Processor activeProcess state ~~ #debug) ifTrue:[
-done ifFalse:[ TimeoutNotification raiseRequest ]
+			done ifFalse:[ TimeoutNotification raiseRequest ]
-]
+		    ]
-]
+		]
-]
+	    ]
-].
+	].
 TimeoutNotification handle:[:ex |
-inError ifTrue:[
+	inError ifTrue:[
-ex proceed
+	    ex proceed
-].
+	].
-retVal := exceptionBlock value.
+	retVal := exceptionBlock value.
 ] do:[
-NoHandlerError handle:[:ex |
+	NoHandlerError handle:[:ex |
-inError := true.
+	    inError := true.
-ex reject.
+	    ex reject.
-] do:[
+	] do:[
-[
+	    [
-Processor
+		Processor
-addTimedBlock:showStopper
+		    addTimedBlock:showStopper
-for:me
+		    for:me
-afterMilliseconds:aTimeLimit.
+		    afterMilliseconds:aTimeLimit.
-retVal := self value.
+		retVal := self value.
-done := true.
+		done := true.
-] ensure:[
+	    ] ensure:[
-Processor removeTimedBlock:showStopper
+		Processor removeTimedBlock:showStopper
-].
+	    ].
-]
+	]
 ].
 ^ retVal
 "
 [
-Delay waitForSeconds:5.
+	Delay waitForSeconds:5.
-true
+	true
 ] valueWithWatchDog:[false] afterMilliseconds:2000
 "
 "Modified: / 21-05-2010 / 12:19:57 / sr"
 "Modified: / 18-01-2011 / 19:24:13 / cg"
 ! !
 exceptionHandlerFor:anException in:aContext
 "answer the exceptionHandler (the Error or signal) for anException from aContext."
 aContext selector == #on:do:on:do: ifTrue:[
-|exceptionCreator exceptionHandlerInContext|
+	|exceptionCreator exceptionHandlerInContext|
-exceptionCreator := anException creator.
+	exceptionCreator := anException creator.
-exceptionHandlerInContext := aContext argAt:1.
+	exceptionHandlerInContext := aContext argAt:1.
-exceptionHandlerInContext isExceptionHandler ifFalse:[
+	exceptionHandlerInContext isExceptionHandler ifFalse:[
-exceptionHandlerInContext isNil ifTrue:[
+	    exceptionHandlerInContext isNil ifTrue:[
-'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-] ifFalse:[
+	    ] ifFalse:[
-(exceptionHandlerInContext isBehavior
+		(exceptionHandlerInContext isBehavior
-and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+		and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-"If the exception class is still autoloaded,
+		    "If the exception class is still autoloaded,
-it does not accept our exception. Raising the exception would load the class"
+		     it does not accept our exception. Raising the exception would load the class"
-^ nil
+		    ^ nil
-] ifFalse:[
+		] ifFalse:[
-'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		    'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-]
+		]
-].
+	    ].
-aContext fullPrintString errorPrintCR.
+	    aContext fullPrintString errorPrintCR.
-self breakPoint:#cg.
+	    self breakPoint:#cg.
-^ nil.
+	    ^ nil.
-].
+	].
-(exceptionHandlerInContext accepts:exceptionCreator) ifTrue:[
+	(exceptionHandlerInContext accepts:exceptionCreator) ifTrue:[
-^ exceptionHandlerInContext.
+	    ^ exceptionHandlerInContext.
-].
+	].
-exceptionHandlerInContext := aContext argAt:3.
+	exceptionHandlerInContext := aContext argAt:3.
-exceptionHandlerInContext isExceptionHandler ifFalse:[
+	exceptionHandlerInContext isExceptionHandler ifFalse:[
-exceptionHandlerInContext isNil ifTrue:[
+	    exceptionHandlerInContext isNil ifTrue:[
-'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-] ifFalse:[
+	    ] ifFalse:[
-(exceptionHandlerInContext isBehavior
+		(exceptionHandlerInContext isBehavior
-and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+		and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-"If the exception class is still autoloaded,
+		    "If the exception class is still autoloaded,
-it does not accept our exception. Raising the exception would load the class"
+		     it does not accept our exception. Raising the exception would load the class"
-^ nil
+		    ^ nil
-] ifFalse:[
+		] ifFalse:[
-'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		    'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-]
+		]
-].
+	    ].
-aContext fullPrintString errorPrintCR.
+	    aContext fullPrintString errorPrintCR.
-self breakPoint:#cg.
+	    self breakPoint:#cg.
-^ nil.
+	    ^ nil.
-].
+	].
-(exceptionHandlerInContext accepts:exceptionCreator) ifTrue:[
+	(exceptionHandlerInContext accepts:exceptionCreator) ifTrue:[
-^ exceptionHandlerInContext.
+	    ^ exceptionHandlerInContext.
-].
+	].
-^ nil.
+	^ nil.
 ].
 "aContext selector must be #on:do: , #on:do:ensure: or #valueWithExceptionHandler:"
 ^ aContext argAt:1.
 !
 selector := theContext selector.
 (selector == #on:do:
 or:[ selector == #on:do:ensure: ]) ifTrue:[
-exceptionHandlerInContext := theContext argAt:1.
+	exceptionHandlerInContext := theContext argAt:1.
-exceptionHandlerInContext isExceptionHandler ifFalse:[
+	exceptionHandlerInContext isExceptionHandler ifFalse:[
-exceptionHandlerInContext isNil ifTrue:[
+	    exceptionHandlerInContext isNil ifTrue:[
-'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-] ifFalse:[(exceptionHandlerInContext isBehavior
+	    ] ifFalse:[(exceptionHandlerInContext isBehavior
-and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+			and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-"If the exception class is still autoloaded,
+		"If the exception class is still autoloaded,
-it does not accept our exception. Raising the exception would load the class"
+		 it does not accept our exception. Raising the exception would load the class"
-^ nil
+		^ nil
-] ifFalse:[
+	    ] ifFalse:[
-'Block [warning]: non-ExceptionHandler in on:do:-context' errorPrintCR.
+		'Block [warning]: non-ExceptionHandler in on:do:-context' errorPrintCR.
-]].
+	    ]].
-theContext fullPrint.
+	    theContext fullPrint.
-^ nil.
+	    ^ nil.
-].
+	].
-(exceptionHandlerInContext == exceptionHandler
+	(exceptionHandlerInContext == exceptionHandler
-or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[
+	 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[
-^ (theContext argAt:2) ? [nil].
+	    ^ (theContext argAt:2) ? [nil].
-].
+	].
-^ nil
+	^ nil
 ].
 selector == #on:do:on:do: ifTrue:[
-exceptionHandlerInContext := theContext argAt:1.
+	exceptionHandlerInContext := theContext argAt:1.
-exceptionHandlerInContext isExceptionHandler ifFalse:[
+	exceptionHandlerInContext isExceptionHandler ifFalse:[
-exceptionHandlerInContext isNil ifTrue:[
+	    exceptionHandlerInContext isNil ifTrue:[
-'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-] ifFalse:[(exceptionHandlerInContext isBehavior
+	    ] ifFalse:[(exceptionHandlerInContext isBehavior
-and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+			and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-"If the exception class is still autoloaded,
+		"If the exception class is still autoloaded,
-it does not accept our exception. Raising the exception would load the class"
+		 it does not accept our exception. Raising the exception would load the class"
-^ nil
+		^ nil
-] ifFalse:[
+	    ] ifFalse:[
-'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-]].
+	    ]].
-theContext fullPrint.
+	    theContext fullPrint.
-^ nil.
+	    ^ nil.
-].
+	].
-(exceptionHandlerInContext == exceptionHandler
+	(exceptionHandlerInContext == exceptionHandler
-or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[
+	 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[
-^ (theContext argAt:2) ? [nil].
+	    ^ (theContext argAt:2) ? [nil].
-].
+	].
-exceptionHandlerInContext := theContext argAt:3.
+	exceptionHandlerInContext := theContext argAt:3.
-exceptionHandlerInContext isExceptionHandler ifFalse:[
+	exceptionHandlerInContext isExceptionHandler ifFalse:[
-exceptionHandlerInContext isNil ifTrue:[
+	    exceptionHandlerInContext isNil ifTrue:[
-'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: nil ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-] ifFalse:[(exceptionHandlerInContext isBehavior
+	    ] ifFalse:[(exceptionHandlerInContext isBehavior
-and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
+			and:[exceptionHandlerInContext isLoaded not]) ifTrue:[
-"If the exception class is still autoloaded,
+		"If the exception class is still autoloaded,
-it does not accept our exception. Raising the exception would load the class"
+		 it does not accept our exception. Raising the exception would load the class"
-^ nil
+		^ nil
-] ifFalse:[
+	    ] ifFalse:[
-'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
+		'Block [warning]: non-ExceptionHandler in on:do:on:do:-context' errorPrintCR.
-]].
+	    ]].
-theContext fullPrint.
+	    theContext fullPrint.
-^ nil.
+	    ^ nil.
-].
+	].
-(exceptionHandlerInContext == exceptionHandler
+	(exceptionHandlerInContext == exceptionHandler
-or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[
+	 or:[exceptionHandlerInContext accepts:exceptionHandler]) ifTrue:[
-^ (theContext argAt:4) ? [nil].
+	    ^ (theContext argAt:4) ? [nil].
-].
+	].
-^ nil
+	^ nil
 ].
 selector == #valueWithExceptionHandler: ifTrue:[
-^ (theContext argAt:1) handlerForSignal:exceptionHandler.
+	^ (theContext argAt:1) handlerForSignal:exceptionHandler.
 ].
 "/ mhmh - should not arrive here
 ^ nil
 [n printCR] doWhile:[ (n := n + 1) <= 5 ]
 "
 !
 loop
 "repeat the receiver forever
 (the receiver block should contain a return somewhere).
 The implementation below was inspired by a corresponding Self method."
 self value.
 thisContext restart
 "
 |n|
 n := 1.
 [
-n printCR.
+	n printCR.
-n >= 10 ifTrue:[^ nil].
+	n >= 10 ifTrue:[^ nil].
-n := n + 1
+	n := n + 1
 ] loop
 "
 "Modified: 18.4.1996 / 13:50:40 / cg"
 !
 loopWithExit
 "the receiver must be a block of one argument.  It is evaluated in a loop forever,
 and is passed a block, which, if sent a value:-message, will exit the receiver block,
 returning the parameter of the value:-message. Used for loops with exit in the middle.
 Inspired by a corresponding Self method."
 |exitBlock|
 "
 |i|
 i := 1.
 [:exit |
-Transcript showCR:i.
+	Transcript showCR:i.
-i == 5 ifTrue:[exit value:'thats it'].
+	i == 5 ifTrue:[exit value:'thats it'].
-i := i + 1
+	i := i + 1
 ] loopWithExit
 "
 !
 repeat
 "Modified: 18.4.1996 / 13:50:55 / cg"
 !
 repeat:n
 "repeat the receiver n times - similar to timesRepeat, but optionally passes the
 loop counter as argument"
 self numArgs == 0 ifTrue:[
-n timesRepeat:self
+	n timesRepeat:self
 ] ifFalse:[
-1 to:n do:self
+	1 to:n do:self
 ].
 "
 [ Transcript showCR:'hello' ] repeat:3
 [:i | Transcript showCR:'hello',i printString ] repeat:3
 "
 !
 valueWithExit
 "the receiver must be a block of one argument.  It is evaluated, and is passed a block,
 which, if sent a value:-message, will exit the receiver block, returning the parameter of the
 value:-message. Used for premature returns to the caller.
 Taken from a manchester goody (a similar construct also appears in Self)."
 ^ self value:[:exitValue | ^exitValue]
 restartAction := [ myContext unwindAndRestart ].
 ^ self value:restartAction.
 "
 [:restart |
-(self confirm:'try again ?') ifTrue:[
+	(self confirm:'try again ?') ifTrue:[
-restart value.
+	    restart value.
-]
+	]
 ] valueWithRestart
 "
 "Modified: / 25.1.2000 / 21:47:50 / cg"
 !
 restartAction := [ myContext unwindAndRestart ].
 ^ self value:restartAction value:[:exitValue | ^exitValue].
 "
 [:restart :exit |
-|i|
+	|i|
-i := 0.
+	i := 0.
-[
+	[
-i := i + 1.
+	    i := i + 1.
-(self confirm:('i is ',i printString,'; start over ?')) ifTrue:[
+	    (self confirm:('i is ',i printString,'; start over ?')) ifTrue:[
-restart value.
+		restart value.
-].
+	    ].
-(self confirm:'enough ?') ifTrue:[
+	    (self confirm:'enough ?') ifTrue:[
-exit value:nil.
+		exit value:nil.
-].
+	    ].
-] loop
+	] loop
 ] valueWithRestartAndExit
 "
 !
 whileFalse
 "
 !
 whileFalse:aBlock
 "evaluate the argument, aBlock while the receiver evaluates to false.
 - usually open coded by compilers, but needed here for #perform
 and expression evaluation."
 "this implementation is for purists ... :-)"
 self value ifTrue:[^ nil].
 "
 |n|
 n := 1.
 [n > 10] whileFalse:[
-n printCR.
+	n printCR.
-n := n + 1
+	n := n + 1
 ]
 "
 !
 whileTrue
 "
 !
 whileTrue:aBlock
 "evaluate the argument, aBlock while the receiver evaluates to true.
 - usually open coded by compilers, but needed here for #perform
 and expression evaluation."
 "this implementation is for purists ... :-)"
 self value ifFalse:[^ nil].
 "
 |n|
 n := 1.
 [n <= 10] whileTrue:[
-n printCR.
+	n printCR.
-n := n + 1
+	n := n + 1
 ]
 "
 ! !
 !Block methodsFor:'parallel evaluation'!
 futureValue
 "Fork a synchronised evaluation of myself.
 Starts the evaluation in parallel now, but synchronizes
 any access to wait until the result is computed."
 ^ Future new block:self
 !
 futureValue:aValue
 "Fork a synchronised evaluation of myself.
 Starts the evaluation in parallel now, but synchronizes
 any access to wait until the result is computed."
 ^ Future new block:self value:aValue
 !
 futureValue:aValue value:anotherValue
 "Fork a synchronised evaluation of myself.
 Starts the evaluation in parallel now, but synchronizes
 any access to wait until the result is computed."
 ^ Future new
-block:self
+	block:self
-value:aValue
+	value:aValue
-value:anotherValue
+	value:anotherValue
 !
 futureValue:aValue value:anotherValue value:bValue
 "Fork a synchronised evaluation of myself.
 Starts the evaluation in parallel now, but synchronizes
 any access to wait until the result is computed."
 ^ Future new
-block:self
+	block:self
-value:aValue
+	value:aValue
-value:anotherValue
+	value:anotherValue
-value:bValue
+	value:bValue
 !
 futureValueWithArguments:anArray
 "Fork a synchronised evaluation of myself.
 Starts the evaluation in parallel now, but synchronizes
 any access to wait until the result is computed."
 ^ Future new
-block:self
+	block:self
-valueWithArguments:anArray
+	valueWithArguments:anArray
 "Modified (format): / 04-10-2011 / 14:55:40 / cg"
 !
 lazyValue
 "Fork a synchronised evaluation of myself. Only starts
 the evaluation when the result is requested."
 ^ Lazy new block:self
 !
 lazyValue:aValue
 "Fork a synchronised evaluation of myself. Only starts
 the evaluation when the result is requested."
 ^ Lazy new block:self value:aValue
 !
 lazyValue:aValue value:anotherValue
 "Fork a synchronised evaluation of myself. Only starts
 the evaluation when the result is requested."
 ^ Lazy new
-block:self
+	block:self
-value:aValue
+	value:aValue
-value:anotherValue
+	value:anotherValue
 !
 lazyValue:aValue value:anotherValue value:bValue
 "Fork a synchronised evaluation of myself. Only starts
 the evaluation when the result is requested."
 ^ Lazy new
-block:self
+	block:self
-value:aValue
+	value:aValue
-value:anotherValue
+	value:anotherValue
-value:bValue
+	value:bValue
 !
 lazyValueWithArguments:anArray
 "Fork a synchronised evaluation of myself. Only starts
 the evaluation when the result is requested."
 ^ Lazy new block:self valueWithArguments:anArray
 ! !
 !Block methodsFor:'printing & storing'!
 printBlockBracketsOn:aStream
 aStream nextPutAll:'[]'.
 !
 printOn:aStream
 "append a a printed representation of the block to aStream"
 |h sel methodClass|
 "cheap blocks have no home context, but a method instead"
 (home isNil or:[home isContext not]) ifTrue:[
-aStream nextPutAll:'[] in '.
+	aStream nextPutAll:'[] in '.
-"
+	"
-currently, some cheap blocks don't know where they have been created
+	 currently, some cheap blocks don't know where they have been created
-"
+	"
-aStream nextPutAll:' ??? (optimized)'.
+	aStream nextPutAll:' ??? (optimized)'.
-^ self
+	^ self
 ].
 "a full blown block (with home, but without method)"
 self printBlockBracketsOn:aStream.
 aStream nextPutAll:' in '.
 h := self methodHome.
 sel := h selector.
 "/ old:
 "/    home receiver class name printOn:aStream.
 "/ new:
 "/    (h searchClass whichClassImplements:sel) name printOn:aStream.
 methodClass := h methodClass.
 methodClass isNil ifTrue:[
-'UnboundMethod' printOn:aStream.
+	'UnboundMethod' printOn:aStream.
 ] ifFalse:[
-methodClass name printOn:aStream.
+	methodClass name printOn:aStream.
 ].
 aStream nextPutAll:'>>'.
 sel printOn:aStream.
 "/
 "/    homeClass notNil ifTrue:[
 "/      homeClass name printOn:aStream.
 "/      aStream space.
 "/      (homeClass selectorForMethod:home) printOn:aStream
 "/    ] ifFalse:[
 "/      aStream nextPutAll:' ???'
 "/    ]
 "/
 !
 storeOn:aStream
 "Modified: 23.4.1996 / 16:05:30 / cg"
 "Modified: 24.6.1996 / 12:37:37 / stefan"
 "Created: 13.4.1997 / 00:00:57 / cg"
 !
 initialPC
 "return the initial pc for evaluation."
 ^ initialPC
 !
 initialPC:initial
 "set the initial pc for evaluation.
 DANGER ALERT: this interface is for the compiler only."
 initialPC := initial
 setHome:aContext
 home := aContext
 !
 source
 |m|
 sourcePos isString ifTrue:[    "/ misuses the sourcePosition slot
-^ sourcePos
+	^ sourcePos
 ].
 m := self method.
 m notNil ifTrue:[
-^ m source
+	^ m source
 ].
 ^ nil
 !
 source:aString
 "set the source - only to be used, if the block is not contained in a method.
 This interface is for knowledgable users only."
 sourcePos := aString  "/ misuse the sourcePosition slot
 !
 sourcePosition:position
 "set the position of the source within my method.
 This interface is for the compiler only."
 sourcePos := position
 ^ (self newProcess priority:priority) resume
 !
 forkNamed:aString
 "create a new process, give it a name and let it start
 executing the receiver at the current priority."
 |newProcess|
 newProcess := self newProcess.
 newProcess name:aString.
 newProcess resume.
 ^ newProcess.
 !
 |selector|
 selector := aContext selector.
 selector == #'value:onUnwindDo:' ifTrue:[
-^ aContext argAt:2
+	^ aContext argAt:2
 ].
 selector == #'on:do:ensure:' ifTrue:[
-^ aContext argAt:3
+	^ aContext argAt:3
 ].
 "/ for now, only #valueNowOrOnUnwindDo:
 "/          or   #valueOnUnwindDo:
 "/          or   #ensure:
 ! !
 !Block class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.210 2015-03-27 11:23:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.211 2015-04-21 19:40:04 cg Exp $'
 !
 version_CVS
-^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.210 2015-03-27 11:23:34 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.211 2015-04-21 19:40:04 cg Exp $'
 ! !
 Block initialize!

changeset 18252	1c69f8f3574c
parent 17697	c88f1b712134
child 18261	22bdfc405bca
child 18316	0f25aa39967c