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

changed the compiler to remove all leading spaces from a method name when composing a primitive identifer.

Browse Source 
started enhancing the compiler to support the #pragma directive
This commit is contained in:
hyunghwan.chung
2017-11-24 17:40:20 +00:00
parent d8bcb6e012
commit 76b975a152
12 changed files with 177 additions and 96 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
moo/kernel/Context.moo
View File

@ -115,21 +115,21 @@ class(#pointer,#final,#limited) BlockContext(Context)
method fork
{
"crate a new process in the runnable state"
## crate a new process in the runnable state
^self newProcess resume.
}
method newProcess
{
"create a new process in the suspended state"
## create a new process in the suspended state
<primitive: #_block_new_process>
self primitiveFailed.
}
method newProcessWith: anArray
{
"create a new process in the suspended state passing the elements
of anArray as block arguments"
## create a new process in the suspended state passing the elements
## of anArray as block arguments
<primitive: #_block_new_process>
self primitiveFailed.
}
@ -268,7 +268,7 @@ class(#pointer,#final,#limited) BlockContext(Context)
* --------------------------------------------------
| pc |
pc := thisContext pcplus1.
(self value) ifTrue: [ ^nil "^self" ].
(self value) ifTrue: [ ^nil ]. ## ^self
aBlock value.
thisContext goto: pc.
* -------------------------------------------------- *)
@ -293,7 +293,7 @@ class(#pointer,#final,#limited) BlockContext(Context)
* --------------------------------------------------
| pc |
pc := thisContext pcplus1.
(self value) ifTrue: [ ^nil "^self" ].
(self value) ifTrue: [ ^nil ]. ## ^self
thisContext goto: pc.
* -------------------------------------------------- *)
while ((self value) == false) { }.