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

removed unneeded text

Browse Source
This commit is contained in:
hyunghwan.chung
2016-05-07 01:37:44 +00:00
parent f9ad51b5c5
commit 4bbd5b52bb
14 changed files with 81 additions and 159 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
stix/kernel/Context.st
View File

@ -56,7 +56,7 @@
^self.method preambleCode == 10.
}
#method findExceptionHandlerBlock: anException
#method findExceptionHandlerBlock: anExceptionClass
{
## for this to work, self must be an exception handler context.
## For a single on:do: call,
@ -70,7 +70,7 @@
bound := self basicSize - 1.
8 to: bound by: 2 do: [ :i |
exc := self basicAt: i.
((anException == exc) or: [anException inheritsFrom: exc]) ifTrue: [^self basicAt: (i + 1)].
((anExceptionClass == exc) or: [anExceptionClass inheritsFrom: exc]) ifTrue: [^self basicAt: (i + 1)].
]
].
^nil.
@ -415,13 +415,13 @@ thisContext isExceptionHandlerContext dump.
ctx := thisContext.
[ctx notNil] whileTrue: [
(ctx class == MethodContext)
ifTrue: [ (ctx method owner name, ' - ', ctx method name) dump ].
ifTrue: [ (ctx method owner name, '>>', ctx method name) dump ].
## TODO: include blockcontext???
ctx := ctx sender.
].
PrimitiveFailureException signal: 'PRIMITIVE FAILED'.
}
#method(#class) cannotInstantiate
{
Exception signal: 'Cannot instantiate'.