RegressionTests__CompilerTest.st
changeset 660 ef75857fce73
parent 659 2d1c408743da
child 668 9481f512e9b8
equal deleted inserted replaced
659:2d1c408743da 660:ef75857fce73
   278     "Created: / 24-08-2010 / 12:51:50 / cg"
   278     "Created: / 24-08-2010 / 12:51:50 / cg"
   279 !
   279 !
   280 
   280 
   281 callEnsureWithException
   281 callEnsureWithException
   282     [
   282     [
   283 	Error raiseRequest
   283         ProceedableError raiseRequest
   284     ] ensure:[
   284     ] ensure:[
   285 	^ true
   285         ^ true
   286     ].
   286     ].
   287     ^ nil
   287     ^ nil
   288 
   288 
   289     "Created: / 24-08-2010 / 12:54:07 / cg"
   289     "Created: / 24-08-2010 / 12:54:07 / cg"
   290 !
   290 !