hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added a new reserved word - thisProcess

Browse Source
This commit is contained in:
hyunghwan.chung
2016-07-05 15:22:29 +00:00
parent a22f5ea0ab
commit 27f00148a1
6 changed files with 37 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
stix/kernel/Process.st
View File

@ -65,7 +65,7 @@
##
## 2) process terminated by itself
## p := [
## [ Processor activeProcess terminate. ] ensure: [System logNl: 'ensured....']
## [ thisProcess terminate. ] ensure: [System logNl: 'ensured....']
## ] newProcess.
## p resume.
## p terminate.
@ -74,7 +74,8 @@
## the process must not be scheduled.
## ----------------------------------------------------------------------------------------------------------
(Processor activeProcess ~~ self) ifTrue: [ self _suspend ].
##(Processor activeProcess ~~ self) ifTrue: [ self _suspend ].
(thisProcess ~~ self) ifTrue: [ self _suspend ].
self.current_context unwindTo: self.initial_context return: nil.
^self _terminate
}